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PREFACE 


This publication describes Auto Report, which is part of the IBM DOS/VS 
RPG II Licensed Progran (5746-RG1). 


The coding for and operation cf RPG II Auto Report are descriked for 
progranmers with basic experience in RPG II. 


PREREQUISITES 


This manual assumes that you are able to code RPG II programs that 
include such basic operations as: using disk files, listing records ona 
printer, simple calculations, and group totals. If you do not have this 
experience, you can receive basic instruction in RPG II through IEM 
education courses or programmed instruction courses, cr by reading 
Introduction to RPG II, GC21-7514. 


Related Publications 


The fcllowing manuals are available for further reference concerning 
subjects discussed in this kook: 


° DOS/VS RPG II Language, SC33-6031 
I 


e DCS/VS RPG Installation Reference, SC33-6032 


e DCS/VS Sort/Merge Programmer's Guide, SC33-4028 (Frogram Number 
5746-SM1) 


e DCS/VS Sort/Merge Version 2 Programmer's Guide, SC33-4044 (Program 
Number 5746-SM2) 


If a sort program other than one of the above IBM sort programs is used 
with the Select/Sort function of Auto Report, see the reference manual 
for that program. 


The diagnostic messages produced Ly Auto Refort are descriked in DOS/VS 
RPG II Messages, SC33-6033. 


For information on DOS/VS, refer to the following publications: 


CDCS/VS System Generation, GC33-5377 

CCS/VS System Management Guide, GC33-5371 
DCS/VS Data Management Guide, GC33-5372 
LCS/VS System Utilities, GC33-5381 

DCS/VS Supervisor and I/O Macros, GC33-5373 
CCS/VS Operating Procedures, GC33-5378 
Guide to DCS/VS Assembler, GC33-4024 
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HCW TO USE THIS MANUAL 


Part I describes a series of examples to illustrate the basic Auto 
Report coding. By studying the reports shown in the exanples alcng with 
the Auto Report coding that produced them, you learn the results of each 
Auto Report coding entry. In this way, you can code your own Auto Report 
progrars in the shortest rossible time. 


Part II contains a complete sample rfrograrn. When you have completed 
Part I, study this program to see how Auto Report is used to code a 
complete program. The procedures for running the pregran, the complete 
printed listing, and the rerort produced as output by the program are 
shown so that you will know what to expect when you code ycur cwn Auto 
Report program. 


Fart III contains the complete reference information for using Auto 
Report. 


Appendix A contains programming tips and aids for RPG II programmers 
using Auto Report. 
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INTRODUCTION 


WHAT IS AUTO REPORT? 


RPG II Auto Report operates prior to the RPG II compiler. Auto Report 
accepts special, simplified specifications and standard RPG II source 
specifications and uses them to generate a complete RPG II source 
program. If the Select/Sort function is used, Auto Report also generates 
an object module to control the selection and sorting of input records. 
The special Auto Report statements control the four separate functions 
of Auto Report. 


*AUTO 


Headings Output 








Provides a simpli- Provides asimp::- | Provides a method Provides a method 

fied method of fied method of of copying cataloged _ of selecting re- 

coding page coding output specifications from cords to process 

headings. specifications. a source library to and sorting those 
include them in an records before 
RPG I! source they are processed. 
program. 


WHAT IS THE PURPOSE CF AUTO REPORT? 
RPG II Auto Report has two primary purposes: 


1. To enable the beginning RPG II users to easily code a program to 
produce a simple report. 


2. To help experienced RPG II programmers code programs faster and to 
provide them with additional features not available in RPG II. 


Auto Report can reduce the time required to plan and code RPG II 
programs by freeing the programmer from many tasks, such as repetitive 
coding of specifications in different programs, planning the format of 
reports, and coding specifications to accumulate and print totals for 
numeric fields. By simplifying programming tasks so that the programmer 
makes fewer errors and by providing a set of diagnostics in addition to 
the RPG II diagnostics, Auto Report can reduce debugging time. 


RPG II Auto Report inciudes four separate functions that can be used in 
any combination: 3 


*AUTO Page Headings 


Auto Report simplifies the specification of page headings. The 
programmer does not have to specify conditioning indicators, spacing, 
and end positions. Auto Report automatically centers the title and 
prints it at the top of each page with a date and page number. 
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*AUTO Output 


Auto Report simplifies the specifications for a report that may include 
columns of data with column headings and totals. On one output 
specification line, the programmer can name a field, specify a column 
heading to appear above the field, and specify that several levels of 
totals be accumulated for the field. The programmer does not have to 
code separate RPG II output specifications to print the column meecinds 
detail lines, or total lines, or calculation specifications to 
accumulate the totals. Auto Report assumes edit codes if the programmer 
does not provide them and determines spacing and end positions to 
produce a report with a neatly prepared format. 


Copy 

Normal RPG II specifications for the *AUTO Page Headings and *AUTO 
Output functions that have been cataloged in a source library can be 
copied ky Auto Report to be included in the RPG II program generated by 
Auto Report. You can use the Copy function to include frequently-used 
specifications that are common to different programs. You can modify 
copied file description and input specifications to suit each particular 
program. 

Select/Sort 

The Select/Sort function allows the programmer to: 


ie Select only those records from a file which he desires to process, 
bypassing all other records. 


2 Sort an entire file into the sequence he desires before processing 
the entire file. 


3. Select records, sort the selected records, and process the selected 
and sorted records. 


SelectySort specifications are entered on the lower half of the RPG Auto 
Report Specifications form (Figure 1). 

HOW DOES AUTO REPORT WORK? 

Auto Report generates a complete RPG II source program and, if the 
SelectySort function is employed, a Select/Sort object module from the 
following input: 

De An Auto Report Option specification (Figure 1). 


Ze *AUTO Page Headings and *AUTO Output specifications you prcvide in 
the source file. 


33 Standard RPG II specifications you provide in the source file. 


“. Auto Report Copy statements in the source file, with or without 
modifier statements. 


5% Select/Sort specifications (Figure 1). 


6. Standard RPG II specifications and *AUTO specifications coried from 
a source library Ly the Auto Report Copy function. 
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Figure 1. Auto Report Specifications Form 
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When you use the simplified specifications for the *AUTO Page Headings 
and *AUTO Output functions, Auto Report generates normal RFG II 
specifications (Figure 2) for the final RPG II source program. If you 
use the Auto Report Copy function, Auto Report copies the designated 
specificatons from the source library. If you include SelectyScrt 
specifications in the Auto Report program, Auto Report generates a 
SelectySort object module. When a complete RPG II source program has 
been generated, Auto Report calls the RPG II compiler. The resulting 
RPG II object program and the SelectySort object module are enen 
link-edited to form the final load module. 
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Figure 2 (1 of 2). Using *AUTO Specifications, Auto Report Generates 
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Figure 2 (2 of 2). 
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RPG I! Auto Report 


Merges specifications copied 
from a source library with 
specifications from the 
source file. 


Diagnoses Auto Report 
coding; optionally, 
produces a listing. 


Generates RPG !I source 
specifications; places 
generated source program 
in a workfile. 


Optionally, punches the 
generated source program. 


Generates a Select/Sort 
object module; stores it _ 
in SYSLNK. 


Optionally, punches the 
generated Select/Sort 
object module. 


Calis the RPG I! compiler if 
there are no terminal errors 
in the Auto Report coding. 





Figure 3. Operations of Auto Report 
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Output 


(optional) 


Auto Report listing 
@ Merged Auto Report 


specifications 
@ Diagnostic messages 





Generated To 
RPG I! source 

rogram in ite 
i piler 


workfile 


(optional) 


Generated RPG I! 
source program 
punched in cards 
or card image 





To Link- 
age 


Select/Sort Editor 


object module 
in SYSLNK 


(optional) 


Generated Select/Sort 
object module 


punched in cards 
or card image 





PART I. 


HCW TO USE RPG II AUTO REPORT 
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8 DOS/VS RPGII Auto Report 


*AUTO PAGE HEADINGS AND *AUTO OUTPUT 


Examples 1 through 4 explain how Auto Report is used in generating 
report page headings and such output specifications as: column headings, 
detail lines, and total lines. : 


*AUTO Page Headings *AUTO Output 


Procedure} 


Produce the sales report shown below using the Code normal RPG I! file description and 
*AUTO Page Headings and “AUTO Output input specifications for the job. 
functions of Auto Report. 
2 Code “AUTO Page Headings to produce: 
a one-line page heading that includes 
date and page number. 


13. Code *AUTO Output to produce one- 
line column headings, detail report lines, 
and final totals. 





Letters 
refer to 
fields on 
the follow- 
ing page. 
OV/O8 /78 SALES REPURT FOR ANY CO. PAGE 1 
|B ie A! [) E | iF (J H 
REGION BRANCH ITES DESCRIPTION SALES AMOUNT ON-HAND VALUE 
1 17 AG7701T 2-TON TRUCK 5 25,000.00 2 10,000.00 
1 17 AG7705S PICK-UP 10 20,000.00 1 2,000.00 
1 17 AP6545B CAMPER 2 8,000.00 
1 22 AG7701T 2-TON TRUCK 2 10,000.00 1 5,900.00 
1 22 AG7705S PICK-UP 4 8,000.00 1 2,000.00 
3 25 AG6545B CAMPER 10 40,000.00 5 20,000.00 
3 25 AP6549B 1/4 TON TRUCK 20 30,000.00 6 9,000.00 
141,000. 00 48,000.00 x 
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4. Code RPG II file description and input specifications 





FILE DESCRIPTION SPECIFICATIONS 


Fite Type , Mode of Processing File Addition/Unordered 
File Designation Length of Key Field or ; Extent Exit Number of Tracks 


: ne of Record Address Field | | : for DAM for Cylinder Overflow 
nd of File 
Record Address Type P Name of Number of Extents 
, Symbolic bel Exit 
Type of File Device - La xi 
File Format Organization 
wor Additional Area 


Filename Sequence 


Block 
Length Length 


0 21 22 23124 25 26 27 
43¢ 

th 120 120 

SEARRMRE 


a@ P/S/C/R/T/D/F 
F/V/S/M/D 


eo 





mala! 















Record Identification Codes 


F cs 
cs 


c 
=| Field Name ZG] e 
From € 
44 45 46 47/48 49 50 51/52]53 54 55 56 57 58159 Go|61 62/63 64 


F jo tain | Location 






















Filename 


Decimat Positions 
Controt Level {L1-L9) 
Matching Fields o} 
Chaining Fieids 

Field Record Relation 





AINID 
7 8 9 10 14 12 13414115 6 


‘4 aya 















Nn 
a 
OTL ST SS A SS 







































































4p te 
opt ppt 
Field Name Contents [ 

(Al ITEMNO Item number 
[J BRANCH Number of the branch office 

| where the item was sold 
fe] REGION Sales region in which the branch 

office is located 

[Pp DESC Description of the sales item 
fq SoLDaY Quantity of the item sold 
[gy soLpva Total value of the items sold — 
iG ONHAND Quantity of the item remaining on hand 
Hi VALUE _ Total value of the items remaining on hand 
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Code *AUTO Page Headings specifications 


OUTPUT SPECIFICATIONS 


Al 






Enter an H in position 15 and *AUTO in 32-36 
to request an Auto Report page heading. Up to 
five page heading lines.can be described. The 
system date is printed on the left and the page 
number on the right of the first heading line on 
each page. The date and page can be suppressed 
by placing an N in position 27 of the Auto 
Report Option specification. 








The title information is centered by Auto 
Report; do not enter end positions in 40-43. 







Fields and table/array elements can also be 
used. 






















= Remove 
Plus Sign 

Y + Date 
Field Edit 

Z = Zero 
Suppress 





x 
<£ 
° 
~~ 
a 
ve 
~ 
at 














End 
Position 
in 

Output 
Record 





Filename 










Type (H/D/T/E) 






Not 
Not 


Edit Codes 
B/A/C/1-9/R 











23124) 25426 


Sen 


19 20[21 22 


EES 
Yt jaaet> | 


pp ea of [>] o [al str 


Ma) ESS follm [Betore_| 








Ba fe fof pater] 


H { 3 Seto | 
i fe) Before 

‘ ‘ : 

i i 


4 


When Output Indicators (positions 23-31) are 
left blank, Auto Report page headings are 
printed on each page (conditioned by 1P or 
overflow). If no overflow indicator is defined 
for the printer file, Auto Report assigns an 
unused overflow indicator to the printer file. 


Cc Channel | 














When Space and Skip entries (positions 17-22) 
are left blank, skip to channel 1 is assumed for 
the first heading line; single spacing is done 
between heading lines; double spacing after 
the last heading line. (See Example 4 for an 
example of multiple page heading lines.) 











Blank 
lin 
01/03/78 SALES REPURT FOR ANY CO. PAGE 
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Ei Code *AUTO Output specifications to produce: 


‘Al Detail report lines 
BI Column headings 


| | ' 
fd Final totals | . £8 


OUTPUT SPECIFICATIONS 


— Output Indicators 
Field Name 
And And 
* 123 4 5&5 6 7 8B Gg 10 11142 13 14 15 16 17 18 19 20 21 22 23 24 * 


27128429 30131 32 33 34 35 36 37438 139/40 41 42 43 45 46 47 48 i a a §3 54 : 56 57 58 59 60 61 62 63 64 65 66 67 68 6! 









Remove 
Plus Sign 
Y = Date 
Field Edit 
Z = Zero 
Suppress 













Filename End 

Position 
in 
Output 























Not 


Constant or Edit Word 






Edit Codes 
B/A/C/1-9/R 













0171 72 73 74 





























ee Tel er eetore 7 
oe 



































































































































i , pes tt 
AUTO. br CEEETEEED 
Je Re SCC 
\ , ISe<h . 
Es + fi | ‘| Column headings are 
TTT entered on the same 
ae rT Be _| line as the fields 
Lid) | Bots over which they 
Lt | ni | ONT appear in the report. 
Enter D in position 15 and *AUTO in aaa 
32-36 to describe an Auto Report with J \ 
detail lines. The record identification Enter an A in position 39 to cause fields to be 
indicator 01 will condition printing of accumulated. Auto Report generates (1) total fields 
the detail lines. and calculations to accumulate the totals and (2) 
total output specifications to print the totals. 
01/03/78 ~ SALES REPORT FOR ANY CO. PAGE l 
REGION BRANCH ITEM DESCRIPTION SALES AMOUNT | ON-HAND<—{;9-—> VALUE 
1 17 AGTTOLT 2-TON TRUCK . 5 25,000.00 2 10,000.00 
1 17 AG7T7T05S PICK-UP 10 20,000.00 l 2,000.00 
l 17 AP6545B CAMPER 2 8,000.00 
ARG 22 AGTTO1T 2-TON TRUCK 2 10,000.00 1 5,000.00 
l 22 AG7705S PICK-UP & 8,000.00 l 2,000.00 
3 25 AG6545B CAMPER 10 40,000.00 C 5 20,000.00 
3 25 AP6549B 1/4 TON TRUCK 20 30,000.00 6 9,000.00 
141,000.00 48,000.00 * 






Auto Report formats the report so that 
column headings and data are neatly 
spaced and centered on each other. 


All numeric fields for which a blank, 
B, or A is specified in position 39 


are edited by the K edit code unless 
a different edit code is specified. 





12 DOS/VS RPGII Auto Report 


*AUTO Output 


Procedure 


Expand sales report from Example 7 to include Code file description and *AUTO speci- 
three levels of totals: fications as in Example 7. 


Total for each branch Add control level indicators to the 


input fields BRANCH and REGION. 
Total for each region 


Final total 


Note: The “AUTO Output function can also be used to produce a group printed report. See 
index entry group printing, for a discussion and examples of group printing. 


INPUT SPECIFICATIONS 













Indicators 





Record identification Codes 

















Filename Field Name 


Sequence 





Position Position 


Option (0), U, S$ 

Not (N) 

C/2/D 

Character 

Decimal Positions 
Contro! Level (L1-L9) 
Matching Fields or 
Chaining Fields 




















































































fo{R| | 
ee 18119 20]21 22 23 24425) 26127 
AlAl | 
a Rllepsi ded 4 
ies abe ; | | e 
ach ane eae 
CEE ia, : TG. 
en Lapras aed “+. a he ESeee Baa Ope es thos i + My ‘ ; | | | qt 
| iy | a 
op le See tee Oe fy Ee ee -+4— ae 3 tr t peer eee 
‘ane i: 35] | BZIoNHAND ane 
: bbe te pho ++ +—t + eee 4 fb 444 
| ae rOEe ASZVALVE ence ee 
Tere a a Pe ea Vidi 
ae one ce Tet Std cee eee one 








Since two control levels are defined, SOLDVA 
and VALUE fields (see following page) are 
accumulated to two levels of totals (branch 
and region) and a final total (LR). 
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OUTPUT SPECIFICATIONS 










As in Example 7, an A in position 39 of the output 
TL emul causes SOLDVA and VALUE to be 
accumulated. 









Remove 








Field Edit 
§ Zero 










Filename 





Type (H/D/T/E) 





Constant or Edit Word 


Dom , 123 4 5 6 7 8 9 10 1112 13 14 15 16 17 18 19 20 21 22 23 24” 
AvGR 19 20]21 22]23| 24) 25} 26 127 29 30!31 9 33 34 35 36 37}38 |39 J40 41°42 43}44f45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 G8 69 70]71 72 73 74 








Before 
After 





Form Type 
Edit Codes 
































































A + “F 
UT a 
AY 
ae MH 
EEE 
































Auto Report places a blank line after 
each total line and an additional blank 
line before the lowest level total and 
before the final total. If you enter 
spacing and skipping values on the D-— ff 
| *AUTO specification, they apply to the | 
| detail print line only. 












gS aS HS Shay 


2 I 


















edhe SASH 
SFY | SIA 7 





























Asterisks (*) are printed by Auto Report | | 
to the right of generated total lines to 

aid in identifying them. If you want to | 
suppress the asterisks, enter N in position : 
28 of the Auto Report Option specifica- | 
tion. 

















01/03/78 \ SALES REPORT FOR ANY CO. PAGE IL, 
REGION BRANCH ITEM NESCRIPTION SALES AMOUNT \ON-HAND VALUE 

1 17 AGT701T 2-NQN TRUCK 5 25,000.00 2 10,000.00 

1 17 = AG7705S_— PICKUP 10 20,000.00 1 2+000.00 






1 17 AP65458 = CAMPEN 2 8,000.00 











~ 53,000.00 12,000.00 





L 22 AGT701T 2-TON TRUC 
1 22 AGT705S PICK-UP 


10,000.00 1 5,000.00 
8,000.00 l 2,000.00 





> 













"18,000.00 7,000.00 





71,000.00 - 19,000.00 





3 25 AG6545B CAMPER 40 40,000.00 5 20,000.00 
3 25 AP65498 1/4 TON TRUCK 2. 30,000.00 6 9,000.00 












70,000.00 29,000.00 








70,000.00 29,000.00 








Total fields are always two positions 
longer with the same number of decimal 
positions as the original fields. 





141,000.00 © 48,000.00 
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*AUTO Output 


Expand the sales report from Examples 1 and 2 i 1 Code file description and input specifica- 
tions as for Example 2. 


to contain: 


Group indication for REGION and Code *AUTO Output with: 
BRANCH fields 


Output indicator on field 
Second column heading line description specifications 


Literal (constant) on the final total line B C in position 39 and a literal in 
45-70 


R in position 39 and a literal in 
45-70 


FILE DESCRIPTION SPECIFICATIONS 







File Type Mode of Processing 


File Addition/Unordered 







Extent Exit 
for DAM 






File Designation Length of Key Field or 
of Record Address Field 


Number of Tracks 
for Cylinder Overflow 







End of File 





Name of 
Label Exit 


Record Address Type 


Type of File Device 
File Format Organization 
aor Additional Area 





Symbolic Number of Extents 


Device 


Sequence 









Filename Tape 


Rewind 
File 
Condition 
U1-U8 





Labets S/N/E/M 


Storage Index 


Continuation Lines 


Option 










Overflow Indicator 
Block Record 
Length Length 


F Go| fal [1 
iNrER OTR nee Cio 


Key Field 
Starting 
Location 


5 36 37 38/39} 40 41 42 43 44 45 46447 48 49 50 51 52/53) 54 55 56 57 58 59 |60 61 62 63 64 65 69} 70171 72173 74 


sped a aisc ava aatatadoneetaataa oats 


Extension Code E/L 


/X/D/T/R or 















1/0/U/C/D 


















-40 41 12 13:14 


[ey 
N 


if 

T* Je 
| 
| 
= 
i 
> =| 
a) 
al 


INPUT SPECIFICATIONS 




















Record Identification Codes 
ae ee ee ee 


Field 


Field Location : 
Indicators 


































co) 
& 
2 
as) = 
£ @ 8 
8 e ¢ - 15 2 
9 a >3 fey 2 ifs Po 
. c —}apc ~ = . pas 2D 
Line Filename S lz) >}. _ 3 31 Field Name 3/23] P 
g [clal3 ° ‘ {3 & g jeu} 8 
3 ~|—}— - "| Position St Position 2] Position 2 2 na From = = ee] 2 Plus jMinus 
Bl clo- i) re) o]e}s e ry = &] 
2) 6] 5 Ole OQ) QO} w/z} E > |6-£| os 
Eps § Nia N] 3 N}slSla o c fal <= 
3) 2) e ~ ps SIS ~[olel~ bod fs) Sf 5 2 
|] 2j;Ol|a O1O OO OlOlwnta a) oO |/20O7 u 
A 
3.4 5 344 17 27} 28 29 30 31132}33134]35 36 37 38{39]40/41442/43144 45 46 47/48 49 50 51/52/53 54 55 56 57 58/59 GOIGt 63 64/65 66/67 68 





g 
i 


















































eee ee 
ie en ee 




















Pt Not (NN 


ioe CS eee i ee 
aaa eee 
tl a aE 


ca 
ca 
fe 
Ce) 











{-- 
t 























LS] 
Ee teh oe 



































—- 
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OUTPUT SPECIFICATIONS 













{|X = Remove 

Plus Sign 
Y = Date 

Field Edit 





ss } End 
Position 
in 

Output 





Filename 











Suppress 


ale 


7 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70]71 72 73 74 























a ela aetela 

Bigene 
FO ee esl 
hi BaRaee 









































ee ehanes = ea) 
























No 
HES 






















































ng AOR RRBAEOEE 
‘th 7 Coo 
VAG Peal tT TT LTT UT TT 

ae ‘Fl ALB TT TTT TT TT 
Output indicators can be used on field : nae | 








description specifications. In this example, 
control level indicators are used to condi- 
tion BRANCH and REGION so that they 
are printed only for the first record of 

the corresponding control group. This 
print suppressing of common fields 

(group indication) reduces repetitive 
information. 


















| One or two additional column heading 
lines can be specified by entering a C in 

position 39 with the heading information 
in 45-70. 









The literal FINAL TOTALS makes 
that line easy to find. To specify 
information to appear on the final 
total line, enter R in position 39 
with a literal in 45-70 or a field 
name/table name/indexed array 
name in 32-37. The information is ] 
printed two spaces to the left of 
the leftmost total on the line. If 
more than one such specification 
is used, the literals and fields are 


01/03/78 LES REPORT FOR ANY co. 













REGION BRANC TEM: SCRIPTION SALES” AMOUNT UNH, 
















2-TON TRUCK 5 25,000.00 
: AGTT05S PICK-UP 10 20,000.00 
AP6545B CAMPER 2 8,000.00 


“nh - 






















53,000.00 










AGTTOLT 2-TON TRUCK 2. 10,000.00 1 
AGTT05S_ PICK-UP 4 8,000.00 l 









18,000.00 














71,000.00 printed from left to right in the 
AG6545B CAMPER 10 40,000.00 s| order they are specified in the 
6 





AP65498 1/4 TON TRUCK 20 30,000.00 program. 






70,000.00 


29,000.00 ** 





141,000.00 : 48,000.00 *x* 
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Expand the sales report from Examples 1-3 to 
include: 


A, A new report page for each region 
Cj Two heading lines on each page 
Cc A field in a page heading line 


Identification of branch and region totals; 
a cross-totals column 





01/03/78 


*AUTO Page Headings 


*AUTO Output 


[Procedure |} 


Code file description and input specifica- 
tions as in Example 3; add an overflow 
indicator to the printer file. 


y) Code RPG II calculation specification for 
cross-total. 


Code *AUTO specifications: 


Output indicators on page heading 
specifications 


B | Two heading lines per page 


Use of a field in an *AUTO page 
heading specification 


Fields and literals on L1-L9 total 
lines (1-9 in position 39) 


SALES REPORT FOR ANY CO. PAGE 


B| REGION i<j 


BRANCH ITEM OESCRIPTION SALES SALES VALUE ON ON-HAND VALUE TOTAL 


NUMBER 


QUANTITY 


HAND 


1? = AGTTOLT 2-TON TRUCK 5 
AG7705S PICK-UP 10 
AP6545B CAMPER [> 2 

BRANCH 17 TOTALS 


22 AGTTOLT 2-TON TRUCK 2 
AGT705S PICK-UP  & 


BRANCH 22 TOTALS 


[o} Recron 1 ToTALs 


25,000.00 
20,000.00 

8,000.00 
532000.00 


10,000.00 
8,000.00 


18,000.00 


71 2000.00 


2 10,000.00 
L 21000.00 
12,000.00 


5,000.00 
22000.00 


72,000.00 


19,000.00 


35 2900.00 
225000.00 

8,000.00 
65,000.00 


15,000.00 
10,000.00 


25-000.00 * 


90,000.00 ** 


01/03/78 SALES REPORT FOR ANY CO. 


REGION 3 


BRANCH ITEM 
NUMBER 


OESCRIPTION SALES SALES VALUE ON 


QUANTITY HAND 


ON-HAND VALUE TOTAL 


25 AG6545B CAMPER 10 


40,000.00 5 20,000.00 60,000.00 


AP6549B 1/4 TON TRUCK 20 


BRANCH 25 TOTALS 


30,000.00 
70,000.00 


6 9,000.00 


29,000.00 


39,000.00 


99,000.00 * 


REGION 3 TOTALS 70,000.00 29,000.00 99,000.00 ** 


COMPANY TOTALS 141,000.00 48,000.00 189,000.00 **# 





Note: Compare matching letters ( EL} ) on this and the following pages to see the Auto Report coding to obtain 
this report. 
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RPG II calculations can be among 
the input statements for Auto 
Report. This specification calcu- 
lates a cross-total of the sales and 
on-hand values. (The placement 

of the calculation in relation to 
calculations generated by Auto 
Report is described under the index 
entry generated RPG I! program.) . 


Leng BL >2fi<2fi=2 
Pa ery his 


Hl = Nays _ vege 
@ 20 21 22 23 24 26 59 160 61 62 63 64 65 66 67 68.69 70 71 72 73 74 


PTET wMMenES ee Cremer water i maneaar arte erect 4 


| CALCULATION SPECIFICATIONS | oe 















Result Field 








- Factor 1 ‘ Operation Factor 2 


~ Control Level (L0-L9, 
@ LR, SR, AN/OR) 


2 Form Type 


-OUTPUT SPECIFICATIONS 


| The headings are printed on a new 
page when the region number 
| changes (L2) or when overflow 
occurs (OF). (OF must be defined 
for the printer file in file Gescrip- 
tion npeciticavions. ) 






= Remove 








Field Edit 
= Zero 
Suppress 





End 
Position 
in 
Output 































DER RRERSRORGGE sen 
ay seewane Eee 

Sues RepoRn! || anna 
de Aly co).)7poo 


The contents of the 





~ 
2 8 
~ 
wo 
~ 
es 


REGION fieid are 


tar 
a a 










— ‘eq | printed on the second 

; a page seastt 
is ce. 
r : tf naan SURORGRUEED 
SURAnAALGGE 
C ETD Au HHP SHH 
; E au LH ieee 
AN a i ain ror FEE 

m 





| A oe aa iH page tl 
ing is specified. Since spacing is _ 
not specified, space one is done 

| after-the tirst and space two after 
the second. Since no output indi- 
| cators are specified, the second 
heading will be conditioned like 
the first. 








Fields and literals can 
be printed on generated 
total lines by entering 
the number of the con- 
trol level in position 39. J 
n Oe Ae HL GO a Ge 


TELL 






i 

















ie | 
tet tt 






ES SSE Eee =) 
|_| | ED) 






fant 
| 
ley 
S| 
aa 
Pout 
eh 
acacia 






bs FES) 
A 

i~<] 

La ba 

a 

| 


ba. 
>! 
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COPY 


Examples 5 and 6 illustrate use of the Auto Report Copy function to copy 
specifications from the source library and to override copied 
specifications for a particular program. 


es 


Use the Copy function to obtain specifications Catalog the file description and input 


for the sales report below (same as in Example specifications for the SALES file in 
7). the source library. 


. Code the /COPY statement in the 
specifications for Auto Report. 


01/03/78 SALES REPORT FOR ANY CO. PAGE 


REGION BRANCH ITEM DESCRIPTION SALES AMOUNT ON-HAND VALUE 


AG7701T 2-TON TRUCK 5 25,000.00 10,000.00 
AG7705S PICK-UP 10 ~ 20,000.00 2,000.00 
AP6585B CAMPER 8,000.00 

AG7701T 2-TON TRUCK 10,000.00 5,000. 00 
AG7705S PICK-UP 8,000.00 2,900.00 
AG6545B CANPER 40,000.00 20,000. 00 
AP6549B 1/4 TON TRUCK 30,000. 00 9,000.00 


141,000.00 48,000.00 
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fe Catalog specifications for the SALES file in the source library: 





FILE DESCRIPTION SPECIFICATIONS 


File Type Mode of Processing File Addition/Unordered 
Extent Exit 


for DAM 


File Designation | Length of Key Field or 


i | Number of Tracks 
of Record Address Field 


End of File for Cylinder Overflow 


Name of 


Record Address Type 

Filename Sequence 7 aa Device Symbolic 
VBE OF Ene ey Device - 

Fite Format Organization 


wor Additional Area 


_ Number of Extents 


Storage Index 


. 
©] Overflow indicator 





_ a 


Block Record 


Key Field 
Length Length vaieee 


Starting 
Location 


| Continuation Lines | nuation Lines 


ea ee 
SRS HO SST 5D: 57 58 59 | 60 61 3.64 65166/67168 69}70]71 72] 73 74 
Ty shi veedeet TT | ae 4 eS lea Cig 






=) 
~ 
wi 
cy 
i] 
fo) 
oO 
< 
2 
a 
c 
a 
& 
x 
wi 




















These specifications could be replaced by 

a single statement as shown on the oppo- 

| site page if they had previously been 
cataloged in the source library 


INPUT SPECIFICATIONS 

























6 Record Identification Codes . Field 
8 _ Field Location : 
3 2 3 Indicators 
= rs S 
= ado = 
g = 8 
wl e a ms a 
Fil 2|>]2 = [33| 2 
Line vename 2\~-) = ield Name os |SBs| xc 
—-|ol] o 3 wi ry 
~jO)5 om) Do 8 
Blclouo: r £¢ cd 
BIS} £2 Ise 
Els] 8 Ee igs| 3 
Ele] 8 FS jee] @ 
| 2 Oja oO So va 










ana 

7 8 9 10 11 12 13114 Hs 
es] (Aa 

’ 































X = Remove 
Plus Sign 
Y = Date 
Field Edit 
Z = Zero 
Suppress 


sae Balances 
> [ome Pe [eee [I 










Fitename End 


Position 









Constant or Edit Word 


* 4123 45 6 7 8 Q9 101112 13 14 15 16 17 1819 20 21 22 23 24 ’ 











EIEaG 
CHES 


es 
ro] OO 101 OO] 6 |o_FomType 
s 

































































=Jefetelele|e| 
=[~fefels] 


7 es ae ee 
) 
me 


o'olololo 








oOo; eo 
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2 Code the /COPY statement to include the file description and input 
specifications. (For a detailed description of the Copy functicn see 
index entry Auto Report Copy Specifications.) 


FILE DESCRIPTION SPECIFICATIONS 





File Type 















Filename 















Line wu 
2 (2) 

Q]re 
g Ste = 
- s — 
€ Sho ed 
© o|n > 
fe) Sla uo 

fe = 
3.4 #S/]6 9: 15 $16 19 
ale @ 

ol?] FIPRUINTIER |o F 


File Designation 


Sequence 


File Format 








Block 
Length 


20 21 22 23/24 25 2 





Mode of Processing 





File Addition/Unordered 




















Extent Exit 
for DAM 


Length of Key Field or 
of Record Address Field 











Number of Tracks 
for Cylinder Overflow 




























Name of 
Label Exit 


Record Address Type 












Number of Extents 






Symbolic 


Device Device 





Type of File 
Organization 
wor Additional Area 








Labels S/N/E/M 


Tape 
Rewind 
File 
Condition 







Storage Index 










Overflow Indicator 

















Record 
Length 







Key Field 
Starting 
Location 






Conti | Continuation Lines | | Continuation Lines | 


Option Entry 
8 49 50 51 52]53154 55 56 57 58 59/60 61 62 63 64 65/66 


PTTL TPRUNTeRisy cart SPEC eC ce Secsise iis 





Extension Code E/L 

















14g “fad a 








INPUT SPECIFICATIONS 


Line Filename 






Sequence 






Record Idertifying Indicator 





Number (1/N) 
Option (0), U, $ 


ee 
@ ase sian 
011) [LV COlRM g, SA qute {TI 


nls 


Position 6 of a /COPY 
statement must not 
contain a U or an H. 







OUTPUT SPECIFICATIONS 


Filename 


















The /COPY statement copies file des- 

E| cription and input specifications for the 
SALES file from the source library mem- 
ber named SALETR. 


‘a e 29 30 ai ee 36 37 pre 44 saan 46 rs a 49 Ane 51 ie 54 55 56 57 $8)59 60]61 62)63 64]65 66/67 6B)69 7071 72 73°74 


ee ee ee Pe Ue eed cs 

leno ae statement can appear anywhere 
among the Auto Report specifications following 
the Auto Report Option statement and pre- 
ceding table and array input records. It is con- 
venient to code the /COPY on the Input sheet 
when you want to override copied input speci- 
fications, as in Example 6. After specifications 

have been copied, all specifications are sorted 
into the order required by the RPG I! com- 











Field 
Indicators 















Field Name 


Matching Fields or 
Field Record Retation 


Controi Level (L1-L9) 
Chaining Fields 


Not (N) 


— 














SALETR is a cataloged mem- 
ber of sublibrary R. 



















End 
Position 
in 
Output 
Record 
















Constant or Edit Word 


"12 3 45 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 ° 
49 50 51 52 53 54 55 S56 57 S8 59 60 61 62 63 64 65 66 67 68 69 7O}71 72 73 74 
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Override copied input specifications to produce 
a report (below) that includes subtotals for 
branch and region. 


Catalog specifications for the SALES 
file, as in Example 5. 


Code /COPY modifier statements to add 
control level indicators to BRANCH and 
REGION fields on copied specifications. 


3 


01/03/78 


REGION BRANCH 
1 17 
1 17 
1 17 


AGTTOLT | 


ITEM 
AGT701LT 


AG7705S 
AP6545B 


AG7705S 


AG6545B 
AP654SB 


SALES REPORT FOR ANY CO. 


DESCRIPTION SALES 


2-TON TRUCK 


PICK-UP 
CAMPER 


2-TON TRUCK 
PICK-uP 


CAMPER 


AMOUNT ON-HAND 


25,000.00 
20,000.00 
8 +000.00 
53,000.00 


10,000.00 
8000.00 


18,000.00 
71,000.00 


40,000.00 
30¥000.00 


PAGE 
VALUE 
10,000.00 
22000.00 
12,000.00 


5,000.00 
2,000.00 


7,000.00 * 
19,000.00 ## 


20/000.00 
9,000.00 


1/4 TON TRUCK 


INPUT SPECIFICATIONS 


Cataloged input specifications for thef 
SALES file. | 












Field . 
Indicators 




















Line Filename 


Field Name 









Sequence 





Position Position Position Plus jMinus 





= (1/N) 

Option-(O), U,S 

Record Identifying-Indicator 
or DS 

Stacker Select 

Decimal Positions - 

Matching Fields or 

Chaining Fields 

Field Record Relation 


Character 
Contro! Level (L1-L9} 
















[= >[o| 
> {3 22 
of | 


16 69 70171 72 73 74 

















| ISAIMIES! | | 
ole) |x Ane 























be assigned to BRANCH and L2 to 
REGION as the specifications are copied 
from the source library. .._ 
: SERAARRREUAAA ia eee 




















Ss 
= 
i 





















| 2 | 
Ea 
i! 

















ri 






































ae 
ca 
ot 
! 
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2 Be Bem Code /COPY and modifier statements. As a result of the 
modifier statements three levels of totals are accumulated 


for the SOLDVA and VALUE fields (L1, L2, and LR). 


FILE DESCRIPTION SPECIFICATIONS 








File Type Mode of Processing 









Length of Key Field or 


File Designation 
of Record Address Field 
















Record Address Type 
Type of File 

Organization 
wor Additional 






Symbolic 
Device 





Sequence 





Device 







Filename 























File Format 


The field names, BRANCH and 

| REGION, identify the input field 
specifications that are to be 
modified. 





Area 





Overflow Indicator 













Block 
Length 


Record 
Length 






Key Fieid 
Starting 
Location 






Extension Code E/L 


P-S:C'R-T/D/F 
/X/D/T/R or 





1/0/U/C/D 

































35 36 37 38{39]40 41 42 43 44 45 46] 47 48 49 50 $1 52 


1d 
ND 


33 34 





ao 





a 














ield Name 











. OF i 





Position 





Character 
Character 

Stacker Select 
Decimal Positioris 
Control! Level (LU L 





Form Type 
Record tdent } 
es —t 








5 56 57 58/59 GOL 





Bb 
S 
LS) 












O ~ be Os 
on Eee Eee 
a tay dome 
ii bt A RL 
! 
f 






Entries on the modifier statements 
override the corresponding entries 
in the copied specifications. 





OUTPUT SPECIFICATIONS 


Output Indicators 
Field Name 
io) iS) te) 


2 Zz 




















End 
Position 
in 
Output 
Record 





Filename 









Type (H/D/T/E) 


fa of [>lola Stkr# (Fetch (F) 


[= fom | Before _| 
ae ae After 






Constant or Edit W: 





Before 
After 







No 
Edit Codes 
B/A/C/1-9/R 






P/B/L/R 





3.4 516 Ol 


ra 
i 
fete 


“423 45 6 7 8 9 1011 12 13 14 15 
44145 46 47 48 49 50 $1 52 S53 54 56 56 57 SB 59 60 









40 41 42 43 


w 
i) 
[*] 
© 


19 20$21 22[23}24/ 25) 26 {27 | 28] 29|30)31 |32 33 34 35 36 37 



























ol3{ [o| 








































Cataloged file description or input aeciieiicnes are 
overridden as follows (see index entry Auto Report Copy 
Specifications for examples): 

-- Entries in a modifier statement Override corresponding 
entries in a copied file description or input field 
specification. 

Blank entries in a modifier statement remain unchanged 
in a copied specification. 





































































Ampersand (&) in the leftmost position of an entry in the modifier statement sets the entry to blanks in the 
copied specification. 







New fields can be added to input specifications by adding new input field specifications as modifier statements. 


Modifier statements do not change the cataloged specifications. The modification is only for the program into 
which the specifications have been copied. 
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SELECT/SORT 3 | | - 2? te oe 


Examples 7 through 9 show how the Selecty/Sort function of Auto Report is 
used to select and sort records for processing. The three examples show 
the three possible ways you can use the Selecty/Sort function: 


Example 7 - Select only those records from a file that you want 
to process for a particular report. —_ 


Example 8 - Sort records into the sequence you want before 
processing them. 


Example 9 - Select the records you want to process, sort them 
into the sequence you want, and process them. 


For a more detailed description of the SelectySort function, see index 
entry Auto Report Select/Sort Specifications. 








List the employees with 14 or more years of Code specifications to list employees 
education. Use the entire employee file, from EMPFILE. The other Auto 
EMPFILE, as input. Report functions may be used. 


Code Select/Sort specifications for a 
single selection criterion (14 or more 
years of education). 
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Bacco’: specifications to list employees from EMPFILE: 


FILE DESCRIPTION SPECIFICATIONS 


File Type Mode of Processing 





File Additton/Unordered 






Extent Exit 
for DAM 


File Designation Length of Key Field or 
of Record Address Field 





Number of Tracks 
for Cylinder Overflow 






End of File 
Name of 


Label Exit 
Storage Index 


Key Freid Continuation Lines 


Starting 
Location K Option Entry 
1 33 35 36 37 38139} 40 41 42 43 44 45 461/47 48 49 50 51 52 ]53}54 55 56 57 58 59]60 61 62 63 64 65 


Le MP wel tT FL Ba THHTLL LLL piskei@ Sysedes [TT TT il it. 
Poe UF 1 DIO Fl i4 M ali tii PIRI IN ERSYSLST | | Ir ake 


Record Address Type 

‘ Sequence : 

Filename a Type of File Device 
File Format Organization 

wor Additional Area 


Symbolic Number of Extents 


Device 





Tape 
Rewind 


Labeis S/N/E/M 






©} Overflow Incicator 
Block Record 
Length Length 








Extension Code E/L 


1/O/U/C/D 
P’S'C-R TID F 


Ww 
7 


a 











INPUT SPECIFICATIONS 














Filename Field Name 









Position Position From 


Form Type 

Option (0), U.S 

Record Identifying !ndicator 
Decimal Positions 

Control Level {L1-19) 
Matching Fields or 

Chaining Fields 

Field Record Relation 


rs) 
a 
| 2 
oly 
ae 
gy 2 
x 
Sto 
oO 
Lye 
O]H 


Character 





Record Identification Codes ; Field 
Field Location 7 
: Indicators 
2 2 
71. 72 73 74 


Plus |Minus} or 
63 64/65 66]67 68169 70 


2 
4 
nN 


34/44 45 46 471/48 49 50 51 


Be 
a 


35 36 37 38439 


a 
N 




































































: : | 
| Tee sn 
YRSEDC is the select field in this lena 
example. It is named in positions | ue 
16-21 on the Select/Sort specifica- | i 











OUTPUT SPECIFICATIONS 


ro] Output Indicators 
Field Name 











X = Remove 


Zero Balances ‘ 
Commas to Print [ne Sign | CR 































Plus Sign 

Yes 1 A Y = Date 
No 2 B Field Edit 

Filename End Yes 3 Cc Z = Zero 
Position No 4 19) Suppress 










in 
Output 


Before 
After 


Not 
Edit Codes 
B/A/C/1-9/R 


x 
a Constant or Edit Word 
ao 
ra 





* 1°23 4 5 6 7 B G9 1011 12 13 14 15 16 17 18 19 20 21 22 23 24 ’ | 


17 44145 46 47 48 49 50 51 52 53 54 55 56 57 58 59 6O 61 62 63 64 65 66 67 68 69 70]71t 72 73 74 


And And 
9 S 
2 2 
19 20421 22 PLR 3ol31 


32 33 34 35 36 37438139 }40 41 42 43 























oa fol [ater 


i a a ee a ee ce 
i i 
Este sa 


€ 
at 














ae 

IF 

eh 
© JES 





























efetelele| | © | 
efe|~fejel=] 
ee her ee ed 






































t 
TOT Ae ee te wore 


Lf fe of [oo fal stirs /Feten iF) 











Rem <O ZIM 1S 
Sign x ™ ts x4 



















































































oe 
aa 
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|Code a selection criterion to test the YRSEDC field on each reccrd in 





mi EMPFILE: 


| SELECT/SORT SPECIFICATIONS 


The codes in 22-23 specify the relation- 
ship between the select field value and 
the single value in 24-33 (this entry must 
be blank when high value is used). 





Entries under single or low value and entries under 
high value can be numeric or alphameric literals and 












EQ — equal to field names. The rules for forming literals are the 
NE — _ not equal to same as the rules for literals on RPG II calculations. 
LT — less than In this example the field, YRSEDC, is alphameric, 
GT — greater than so the literal, ‘14’, is also alphameric (must be 

LE — less than or equal to enclosed in apostrophes). High value must be 

GE — greater than or equal! to | blank in a single value test. 






















Single or ~ Comments 


Low Value 


High Value 





Line Filename 






Sort Field (S1-S9) 
equence (A/D) 


Continuation (A) 


S 





rs) 
Qa 
> 
be 
E 
5 
° 
rs 
6 





8 9 10 11 12 13 14 15/16 17 18 19 20 21122 231/24 25 26 27 28 29 30 31 32 33434 35 36 37 38 39 40 41 42 43144 45 46 47 48 49)50 51}52] 53 54 55 56 57 58 59 GO 61 62 63 64 65 66 G7 68 69 70 71 72 73 74 




























































ie SEAPBE. | SRSEDC CE tH ft He of | 
of [sh | ETL || ESSE tH +H +H Baas -H E 
elt se NT PANG EH RRERRSEL Ree eeeR ees pete es 
: An S in position 6 nEEaneeie : BEGRORRREEL ia ‘ | 
a identifies a Select/Sort beta This specification says: select those records from EMPFILE in which 
{ _—- aeSieeene the value of the field YRSEDC is greater than or equal to 14. (The Z 
fois] fs} FT TE TTT TTT TELLELT TLL TT yy Select/Sort specification can be placed anywhere among the Auto z | 
| Report specifications, following the Auto Report Option specification §- 
| and preceding compilation time tables and arrays.) 
01/03/78 CUALIFIED FOR ASSIGNMENT TO NEW PROJECT PAGE 4 
ENP NO NAME DEPT YEARS OF MARITAL 
| EXPERI ENCE STATUS 

01472 NOVAK, JAMES 22 6 i 

| 02754 ARLINGTON, STEVE 47 5 be 
17629 REEVES, DONALD 44. 10 Ss 
27452 DONALCDCSON, ANDREW 31 3. M 
76958 JAMESCM, RALPH 15 10 Ss 
79878 SMYTHE, CURTIS 22 6 15 
79972 WILSON, HORACE 19 12 be 

| 80001 KNOLTE, CAVID 16 6 M 
82795 MORGAN, JERRY 27 7 S 
92744 JCNAS, GEORGE 44 2 S 
$5966 SWENSCN, HELMER 15 7 S 
97772 VANDERVEER, GALE 23 7 y 





The employee file, EMPFILE, is in 
ascending sequence by employee number, 
so the report remains in that sequence. 
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List all employees in EMPFILE in descending 1 Code the same file description, input, 
sequence according to their years of experience, 


and output specifications as in Examp/e 
7 to list records from EMPFILE. 


2 Code Select/Sort specifications for a 


single sort criterion (descending se- 
quence by years of experience). 


1 


FILE DESCRIPTION SPECIFICATIONS 





F File Type Mode of Processing File Addition/Unordered 
File Designation Length of Key Field or s Extent Exit Number of Tracks 
enaahen of Record Address Field iw for DAM for Cylinder Overflow 
nd of File = 
Record Address Type : =| Name of { 
ey Soimence Symbolic a aeeE A Number of Extents 
ilename Type of File ee Device Device F abe Tape 
Or a 
File Format Genization -m Ss Storaae Indey Rewind 








INPUT SPECIFICATIONS 



















Record Identification Codes 
a ee ee ee eee ae 






Field Location Field 
Indicators 


Field Name ; 
Zero 
To Plus [Minus] or 
: Blank 
5 46 47/48 49 50 51/52/53 54 55 56 57 5$8]59 GO]G1 62163 64165 66767 6869 7270]71 72 73 74 
boty 
+ 


| ot: tif, ron +.- af hey me Sees ae ~ 4 to 















Record Identifying Indicator 





= Cc 
5 S 
4 - |S 8 
ow 
2 “]2a S 2|$sle 
: es ~ = ~ |23a 
Filename 8 j2{> a g 3 es {2s} 2 
~= | = ee 
S j= ° 2 : S 5 - a sch a D on S 
w= : Position 2] Position 2 Position a | 5 ice cs 
3 . 
z 6 Q}8 Q}\s x E S16} x 
= 3 5 c 1s 8] 3 
3/4 Nie N|é S D rat @ 2 
| |2 fo) O1O OO nw (=) Oo 1250 re 








NO 
15 [1G ft) 19 20 }21 22 23 24)25 


LO | 
Al | iY i 1 


nN 
n 
nN 
~ 


28 29 30 31432}33 





a 




























A file is sorted using the contents 
of one or more sort fields. Sort 
fields must be defined on input 
specifications. In this example, 
Y RSEXP is the sort field. 


| a a 
> 
nN 


iat 
: i | | 
a 

t 

4+ 

J 

ma 

} 

i 

ae 

Aeon eee 

a 

7 





















































































OUTPUT SPECIFICATIONS 



























































= - 
= . 
_lg Space ey Output Indicators Hiniove 
Wye Plus Sign 
™— I~ . 
5 Ps Field Name Y = Date 
Spxpeye Field Edit 
é XLIR] ole 
Filename = sis End Z = Zero 
pe alR | aj < And And a Position Suppress 
g Flofeley » | | @) in 
KE 6 oS Ie ay i 
E AlDLO} s = 18 3 8 G] Output Constant or Edit Word 
! co) ela] oR 
5 om <} Record 
‘1°23 4 5 6 7 8 9 1011 12 13 14 15 16 17 1819 20 21 22 23 24 
3.4 5/617 8 9 1011 12 13 17|18}19 20421 22123 26 29}30131|32 33 34 35 36 37 9140 41 42 43]44]}45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70|71 72 73 74 
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~ | Name the sort field in positions | 
44-49, — 









Any of the nine codes, $1-S9, 
can be entered if a single sort 
field is.used.. : 










Enter the sequence of the sort in 
position 52. . 






Selection Criteria 


QL sacreeral | 
























Single or 
Low Value 





Filename Comments 









Form Type 
Sort Field ($1-S9) 
Sequence (A/D) 








_ Continuation (A) 








$3 54 55 56 57 58 59 GO 61 62 63 64 65 66 G7 G8 69 70 71 72 73:74 


a 
ea) 

































a satnen pele Sea ASL MERE Sl a 
i | | : This specification says: sort EMPFILE 
+ | ; : into descending sequence according to the 
a a contents of the YRSEXP field. 
SRURRRREREREE eee MERE E De Seeal a ie 
S | | 






















































re ee 














eto |o lo folele lo fs 
n 


01/03/78 QUALIFIED FOR ASSIGNMENR, TO NEW PROJECT | PAGE 1 


EMP NO NAME DEPT YEARS OF MARITAL 


EDUCATION STATUS 





12430 TUPPER, LOUIS 34 12 S 
01426 SCHMIDT, ADOLF 27 12 M 
92764 ASTOR, GEORGE 16 8 M 
72441 DREW, FRANKLIN 37 8 M 
62202 WASHINGTON, JOHN 15 12 S 
81060 JOHNSON, JAY 34 13 M 
90413 STONE, MARTIN 19 12 S 
47246 BAKER, STUART 23 8 M 
32404  TORRENCE, HORATIO 31 10 M 
32166 GRAYSON, TRUMAN 22 12 M 
29721 STRIKE, STEVEN 41 12 M 
79972 WILSON, HORACE 19 16 S 
76958  JAMESOM, RALPH 45 14 S 
17629 REEVES, DONALD 44 14 S 
27224 HOLLY, JAY © 37 12 S 
95966 SWENSON, HELMER 15 7 16 S 
82795 MORGAN, JERRY 27 7 14 S 
97772 VANDERVEER, GALE 23 7 16 M 
80001  KNOLTE, DAVID 16 6 15 M 
01472 NOVAK, JAMES 22 6 15 M 
79878 SMYTHE, CURTIS | 22 6 14 S 
02754 ARLINGTON, STEVE 47 5 16 Ss 
27452  DONALDSON, ANDREW 31 3 14 M 
92744 JONAS, GEORGE 44 2 14 S 
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List the single employees from EMPFILE who 
have 6 to 10 years of experience or more than 
13 years of education. List the employees in 
descending sequence according to their years 
of experience; then sort employees with equal 
years of experience into ascending sequence 
according to their years of formal education. 





All select fields and all sort fields must be defined 

on input specifications (see Examp/e 7). Marital 
status (MARSIN), years of experience (YRSEXP), 
and years of education (YRSEDC) are select fields in 
this example; they are named in positions 16-21 of 
the Select/Sort specifications. Years of experience 
(YRSEXP) and years of education (YRSEDC) are 
also sort fields in this example; therefore they are 
named in positions 44-49. 


This selection process cannot be described in a single 
Select/Sort specification, since several distinct tests 
are involved. There are actually two sets of criteria 
to describe, as follows: 


® Years of experience (YRSEXP) must be be- 
tween 6 and 10 and Marital status (MARSIN) 
must be single (S) 


or 

e Years of education (YRSEDC) must be greater 
than 13 and Marital status (MARSIN) must be 
single (S) 


Either the first set or the second set of criteria must 
be met by a record to be selected for processing. 


Only those records which meet the selection criteria 
are sorted. 


ure 


1 Code the same file description, input, 
and output specifications as in Example 
6 to list records from EMPFILE. 


2 Code more than one selection criteria in 
the same program. 


Code more than one sort criteria in the 
same program. 
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mCode selection criteria: 





SE LECT/SORT SPECIFICATIONS 
ion rier SC—idSCt 


The first selection criterion is an example of a 
range test. The value of the field YRSEXP must 
be within the range defined by entries under 











Single or 
Low Value 


Filename 









































8 g Low Value (24-33) and High Value (34-43). 
E : | Positions 22-23 are blank. 
3 5]6}7 8 9 10 1112 13 14 115416 17 18 See ee re ee ea: 39 40 41 42 43448:.a5::48:: at acaba Sth 
o Lia oma ae 
ol] fst | | “HH MARSIINEG Is’! | TTT TTT TT | cH PPePePePPPUTT 
olay Ist dt TT Paice rate et HH eee rh 
o|s OS RRERUROCARRORGRRGGMMREROR SEE EEE iit 
Sen : if tH BRERA ERRER RS eR ERR RR RAR Rees 
Ces ROE SE / 4a eee TEED RAR RRR ERE E eee AITGtGHGnGIGES 
lols | pst c BRIGETRDRERRARRT EVER Rees 
11°} | Enter an Ain position 15torelate jf | | 





a selection criterion to the previous | 
| criteria in an AND relationship. 
-Leave blank for OR relationship. 


Either the selection criteria in lines 02 
and 03 or the criteria in lines 04 and 05 
must be met. 








Wilson, Arlington, and Jonas do not have | 


| between six and ten years of experience, 
but they are selected because they are 
/ single and have more than 13 years of 
education. 














Holly has fewer than 13 years of education, 
but he is selected because he has between 
six and ten years of experience and he is 
single. 










01/03/78 RSASSIGNMENT TO NEW PROJEC? PAGE 1 
EMP NO NAME YEARS OF \ Y€ARS OF MARITAL 
EXPERIENCE DOCATION STATUS 
79972 WILSON, HORACE ot PO 16. s 
27224 #HOLLY, JAY WA Ss 
76958 JAMESCM, RALPH 14 S 
17629 REEVES, DONALD 14 5 
82795 MORGAN, JERRY 14 s 
95966  SWENSCN, HELMER 16 Ss 
79878 SMYTHE, CURTIS 14 s 
02754 ARLINGTON, STEVE 16 s 
92744 JCNAS, GEORGE 14 s 


Final Report | 
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IR¥ cove sort criteria: 


SELECT/SORT SPECIFICATIONS 














Selection Criteria Sort Criteria 


The sort by years of experience is 
done first, since YRSEXP has the 
higher sort field code. 





























. . i) } . a ~_ 
Line Filename < Single or High Value 2 {6 Comments 
S Low Value a |e 
2 > |e 
3 ve 
g ic 15 
= i 
8 8 |8 
3°94 «5 151716 17 18 19 20 21122 23/24 25 26 27 28 29 30 31 32 33/34 35 36 37 38 39 40 41 42 43]44 45 46 47 48 49, BOB: HG 
YA] ? E 
1p RE RSTERE 
“a | : 4 
2 i ~! td cal Peadeeilea dss |i if 





Experience in descending sequence. 
Education in ascending sequence. 


























First, selected records are sorted into 
descending sequence by years of exper- 
ience, 


Secondly, records with equal years of 
experience are sorted into ascending 
sequence. 


01/03/78 QUALIFIED FOR ASSIGNMENT TO.NEW PROJECT 


EMP NO NAME DEPT YEARS OF YEARS OF 
EXPERIENCE EDUCATION 


79972 WILSON, HORACE 19 12 16 
27224 HOLLY, JAY 27 10 12 
76958  JAMESCH, RALPH 15 10 1a} 
17629 REEVES, DONALD 44 10 14 
82795 MORGAN, JERRY 27 14 
95966 SWENSCN, HELMER 15 16 
79878 SMYTHE, CURTIS 22 14 
02754 ARLINGTON, STEVE 47 16 
92744 JONAS, GEORGE 41 14 


Final Report 


NUNMNMUANN 
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PART II. 


SAMPLE PROGRAM 


Sample Prcgram 33 
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SAMPLE PROGRAM 


This sample program is present on the distribution disk or tape 
containing the DOS/VS RPG II Licensed Program (see the publication 
DOS/VS RPG II Installation Reference). 


This sample program illustrates the use of all Auto Report functions: 
*AUTO Page Headings, *AUTO Output, Copy, and Select/Sort. The Auto 
Report specifications for the program are explained. The Auto Report 
listing, the RPG II listing, and the final report are shown. 


This program prepares a Cash Receipts Register using RPG II with Auto 
Report. The *AUTO Page Headings function and the *AUTO Output function 
are used to generate the RFG II output specifications for the report and 
the calculation specifications to accumulate final totals for several 
fields on the report. 


The Auto Report SelectySort function is used to select records for only 
those customers who have made a partial payment and to list the selected 
records in ascending sequence by invoice date. RPG II calculation 
specifications that cannot ke generated by Auto Report are included in 
the Auto Report program to verify the discount taken by each selected 
customer and to calculate the balance due. 


The file description specifications for the printer file, CSHRECRG, and 
the file description and input specifications for the input file, CASHRC 
(Figure 4), are cataloged as separate members in a scurce library. The 
cataloged specifications are included in the program by the Auto Report 
Copy function. 
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FILE DESCRIPTION SPECIFICATIONS 
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PRNTR. 
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CSHRC, are in the library 
member also named CSHRC. 
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Figure 4. File Description and Input Specifications that are Cataloged 
in the Source Library (Sublibrary R) Members PRNTR and CASHRC 


AUTO REPORT CODING © 


Figure 5 shows the RPG II and Auto Report specifications that must be 
included in the Auto Report program to produce the Cash Receipts 
Register. 


RPG Header Specifications 


The header specification shown in Figure 5, insert A, should be included 
in the Auto Report program, since it is not present among the cataloged . 
specifications (Figure 4). None of the header options are required in 
this program, so the specification need contain only an H in. position 6 
and the Program Identification entry, ARO004 in positions 75-80. The 
Program Identification characters from positions 75-80 of the H | a 
specification are placed in positions 75-80 of all specifications in the 
generated source program (Figure 7). (The use of the Program 
Identification characters by the RPG II compiler is described in the 
publication DOS/VS RPG II Language.) 
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{COPY Statements 


The /CCEY statements shown in Figure 5, insert B, are used to ccpy the 
file description and input specifications for the program from the 
sublibrary named R in the source library. The first statement copies 
the file description specification for the printer file from the library 
member named PRNTR. The second statement copies the file descrirtion and 
input specifications for the card file, CASHRC, from the library member 
also named CASHRC. As a result of these /COPY statements, the file 
description and input specifications shown in Figure 4 are included in 
the RPG II source program generated by Auto Report. 
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HEADER SPECIFICATIONS 





Number 
Ot Print 
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Refer to the specific System Reference 
Library manual for actual entries. 
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Reserved 


vo 


Debug 


Object Output 
Inv 


Listing Options 
© ~=Subprogram 


wn 
on 


31 32.33 34 35 


10; 11}12 13 14/15} 16417 18119] 20]21}22] 23 24 25 27 28 29 30 36 $37}38 39/40] 41/42 


6/57 58 59 60 61 62 63 64 65 66 67 68 69 fu 71 72:73:74 


< 
26 


ve 
3.4 Sj6]7 8 9 


INPUT SPECIFICATIONS 
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Figure 5 (1 of 3). RPG II and Auto Report Specifications 
to Produce the Cash Receipts Register 


SelectySort Specifications 


Figure 5, insert C, shows the Select/Sort coding to select custcmers who 
have made a partial payment and to sort those records into ascending 
sequence by invoice date. The single selecticn criterion specifies that 
the field named CODE must contain the character P (indicating partial 
payment) on each record selected. The single sort criterion specifies 
that those records selected are to be sorted into ascending sequence (A 
in position 52) according to the contents of the INVDAT field. 


Since no Auto Report Option specification is included, Auto Report 


assumes all of the options corresponding to blank entries, Therefore, 
one disk work file is used for the sort. 
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Calculation Specifications 


The calculation specifications shown in Figure 5, insert D, are included 
in the Auto Report program to perform special operations that cannot be 
generated by Auto Report. First, the discount allowed for each customer 
is subtracted from the discount taken by each customer. Indicator 10 is 
turned on if the difference is greater than or equal to $1.00. The 
remaining calculations subtract the discount taken and the amount paid 
from the amount owed. 


The order in which these calculations are placed in relation to the 


calculations generated by Auto Report is shown in the Auto Report 
listing of the generated RFG II source program (Figure 7). 
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Figure 5 (2 of 3). RPG II and Auto Report Specifications 
to Produce the Cash Receipts Register 
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*AUTO Specifications 


The coding for the *AUTC Page Headings and the *AUTO Output features is 
shown in Figure 5, insert E. Notice that the Y edit code is used for 
the data fields (lines 10 and 12). Auto Report generates a K edit code 
for numeric fields when an edit code is not specified. No edit code is 
generated for numeric fields when they are described with a 1-9 or R in 
position 39. A 3 edit code is specified for the INVNO field to suppress 
the printing of the comma edit character. 


DIFF is printed on the detail line only if it is $1.00 or more. 
Remember, output indicator 10 is used only to condition the printing of 
the field on the detail line; it does not affect the printing of the 
generated field on the total line. 


Totals are accumulated and printed by Auto Report for five fields, as 
indicated by A entries in position 39. Since an L1 control is defined 
in the input field specification for REGION, which is added to the input 
specifications for the CASHRC file (see Figure 5, insert B), regional 
and final totals are accumulated for each field which has an A in 
position 39. The total lines are identified by the literals shown in 
lines 23 and 24 of the *AUTO specifications (Figure 5, insert F). 
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Figure 5 (3 of 3). RPG II and Auto Report Specifications to 
Produce the Cash Receipts Register 


RUNNING THE SAMPLE PROGRAM 


See the publication DOS/VS RPG II Installation Reference for how to run 
Figure 6. 
Figure 7. 


the sample program. The data used for the program is shown in 
The listing and output for the sample program should look like 


40 DOS/VS RPGII Auto Report 





ci a 








11243JONES HARDWARE 27541071177 2375CASH 47 47 23289072177 


11352NU-STYLE CLOTHIERS 27987071477 8707CASH 174 4KOCO07267P 
11886MIDI FASHIONS INC 15771070477 10722CASH 214 214 105€897147T 
12874ULOOK INTERIORS 25622970977 6795CASH 136 679507237T 
T8274STREAMLINE PAPER INC29703072177 27403 548 238 1795507307P 
2334 7RITE-BEST PENS CO 20842071877 1580 31 1O90007207P 
25521IMPORTS OF NM 29273072977 79740 1593 1193 5854707277P 
26723ALRIGHT CLEANERS 19473079777 46209CASH 924 4620007237T 
28622NORTH CENTRAL SUPPLY17816070577 T7597CASH 152 759707227T 
29871FERGUSON DEALERS 27229071077 6191CASH 124 61910 7227T 
30 755FASTWAY AIRLINES 26158070677 74272CASH 1495 1685 7258707197T 
31275ENVIRONMENT CONCERNS2945107C677 2943 59 150007397P 
324573 SOLE SILCS 27425071077 11905CASH 220 110C507207T 
S3794S5HOFFTA BREAKS INC 18276070677 4&723CASH 94 472307237T 
42622EASTLAKE GRAVEL CO 16429°70577 2937CASH 58 293797237T 


Figure 6. Sample Data for Sample Program 
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DOS/VS RPGIAUTO JOb ~ ARSAMPL 02/03/78 PROGRAM - 


—_ | 0100 H | SAMPLE 
0001 0101 I/COPY R,PRNTR 


SAMPLE 


The source sequence number generated 
by Auto Report appears in print posi- 
tions 1-4 of the listing. 






















0002 Cc 03 FCSHRECRGO F 132 132 OA PRINTERSYSLST 
0063 0102 I/sCoOPY R,CASHRC = 
0004 c Q2 FCASHRC IP F — ~—-80 SYSIPT Print position 6 of the Auto Report listing 
0005 C 01 ICASHRC AA OQ1 68 CT indicates the origin of the specification: 
0006 Cc 02 I OR 68 CP : 
0007 Cc 03 I . 1 5 ACCTNO Blank. — Specification comes from 
0008 C 04 I 6 25 ACCTNM the source file. 
0009 Cc 05 I 26 300INVNO 
0010 c 06 I 21 360INVDAT Specification was copied 
0011 C 07 I 37 422AMTOWD from a source library by 
0012 C 08 I 4&3 4&6 TRANS /COPY. ~ 
0013 C 09 I 47 512DISCAL 
001m Cc 10 I 52 562DISTAK A/COPY modifier state- 
0015 Cc 11+. 57 622AMTPD ment from the source file. 
0016 Cc i2 I €3 670DATPD ee ee 
0017 Cc 13 I 68 68 CODE 
0018 0103 SCASHRC CODE EQ*P! TNVDATSIA 
0019 0104 I 1 1 REGIONL1 
0020 0201 Cc DISTAK SUoe DISCAL DIFF 42 
0021 0202 C DIFF COMP 1.09 10 10 
0622 0203 C AMTOWD SUB DISTAK NETOWD 62. 
0023 0204 C NETOWD SUp AMTPD BAL 62 —s 
0924 0301 OCSHRECRGH *AUTO 
9025 0302 0 "CASH RECEIPTS REGISTER! ARCO 
0026 0303 0 D 01 *AUTO ARONA 15 
0027 030350 REGION *REGION! ARNN16 
0628 0304 Oo ACCTNO *ACCOUNT® ARON 17 
90629 0305 0 Cc *NUMBER' ARO 18 
0030 0306 O ACCTNM ‘ACCOUNT NAME! APCN19 
0031 0319 O INVNO 3 'INVOICE!® ARCA2N 
0032 0311 0 Cc *NUMBER'® AROQN21 
0033 0312 0 INVDATY ‘INVOICE? ARNND2 
0034 0313 0 Cc "DATE! ARN%D3 
6035 0314 0 DATPD Y ‘DATE PAID! ABNnN24 
0036 -0401 0 AMTOWDJA *AMOUNT!? ARONDS 
0037 0402 0 Cc *CWED! ARO%26 
0038 0403 0 DISTAK A *DISCOUNT! ARON27 
0039 C404 O Cc "TAKEN? ARN028 
0040 0405 0 AMTPD A ‘AMOUNT? ARON29 
0041 0406 O Cc *Parp! AROQN3N 
9042 6407 O BAL A ‘BALANCE? ARO" 31 
0043 0408 O Cc "DUE? ARNN32 
0044 0409 O 10 DIFF A "EXCESS! ARON%32 
0045 0410 O C *DISCOUNT® ARC 34 
0C46 0411 0 1 "REGION TOTALS* ARON35 
OG47 0412 0 R "COMPANY TOTALS! AR0N4 36 
SOU RCE EN D 
PARAMETERS PASSED TO SORT 


Figure 7 (1 of 5). 
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Listing and Output 


of Sample Program 


DOS/VS RPGIAUTO JOB - ARSAMFL 02/03/78 PROGRAM - ARCOOU 


RECORD TYPE=F,LENGTH=80 

INPFIL EXIT 

OUTFIL EXIT 

OPTION PRINT=CRITICAL, LABEL= (, ,S) 
MODS PH1=(,,E15) , PH3=(,,E35) 

SORT FIELDS=(31,6,ZD,A) , WORK=1 


See Appendix B for a description of the 
parameters passed to the Sort program 
by Auto Report when the Select/Sort 
function is used in a program. 







NO ERRORS DETECTED BY AUTO REPORT 


END OF AUTO REFORT PROGRAMS 


Figure 7 (2 of 5). Listing and Output of Sample Program 
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DOS/VS RPGITI 


0001 
0002 
0003 


0004 
0005 
0006 
0007 
0008 
0009 
0010 
0011 
0012 
0013 
0014 
0015 
0016 
0017 
0018 
0019 
0020 
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0022 
0023 
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0032 
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0037 
0038 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 
0047 
0048 
0049 
0050 
0051 
0052 
0053 
0054 
0055 


Figure 7 


20C 
30C 
40 
50 
60 
70C 
Y 80C 
90C 
01 00C 
10C 
20C 
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40C 
50C 
60C 
01 70C 
80C 
90C 
00 
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30 
40 
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10E 
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90E 
OOE 
10E 
20E 
30E 
4OE 
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10E 
80E 
90E 
O0E 
19E 
205 
30E 
4OE 
50E 
605 
10E 
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00E 
10E 
20E 
30E 
4OE 
50E 
60E 
TOE 
80E 
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FCSHRECRGO 
FCASHRC IP F 


F 


F 132 


I*/COPY R,PRNTR 
I*/COPY R,CASHRC 
ICASHRC AA O01 6 


QNNQNNQNAHHHHHAHHAAHARRH 


CSR 


ANNANAANAANAANAANAANQ 
MNNNNANWNOrMor 
DDD WW ao a 


OR 


Oo 
od 


19 


OCSHRECRGH 


oeooo0o0oooocoo0oo0oocoooooo0o0od 


(3 of 5). 


OR 


CSHRECRGH 


OR 


CSHRECRGH 


OR 


6 


DISTAK 
DIFF 

ANTOWD 
NE TOWD 


AMTOWR 
DISTAR 
AMTPDR 
BALR 
DIFFR 
ASSSUM 
AMTOW1 
DISTA1 
AMTPD1 
BALI 
DIFF 1 


20 1 


1 


2 


02/0 3/78 


132 OA 
80 
8 CT 
8 CP 
SUb DISCAL 
COMP 1.00 
SUB DISTAK 
SUs AMTPD 
EXSR A$SSUM 
ADD AMTOW1 
ADD DISTA1 
ADD AMTPD1 
ADD BAL1 
ADD DIFF1 
BEGSR 
ADD AMTOWD 
ADD DISTAK 
ADD AMTPD 
ADD 5AL 
ADD DIFF 
ENDSR 
1P 
OA 
UDATE Y 
PAGE Z 
1P 
OA 
1P 
OA 


127 
131 


105 
118 
128 


PROGRAM - AROOOS 


PRINTERSYSLST 


SYSIPT 


4 

6 

26 

31 

37 

43 

47 

52 

57 

63 

68 

4 
DIFF 


NETOWD 
BAL 


AMTOWR 
DISTAR 
AMTPDR 
BALR 
DIFFR 


AMTOW1 
DISTA1 
AMTPD1 
BAL1 

DIFF 1 


8 
76 


*CASH 
"PAGE ! 


KRDEXITRGSORT 


5 ACCTNO 
25 ACCTNM 
300INVNO 
360 INVDAT 
422AMTOWD 
46 TRANS 
512DISCAL 
562DISTAK 
OZ2ANTPD 
670DATPD 
68 CODE 

1 REGIONL1 

42 

10 10 

62 

62 


82 
72 
82 
82 
62 


82 
72 
82 
82 
62 


RECEIPTS REGISTER® 


6 "REGION! 


15 
29 
46 
56 
67 
89 
92 


"ACCOUNT! 
"ACCOUNT NAME? 
‘INVOICE! 
‘INVOICE! 
*DATE PAID! 
‘AMOUNT! 
'DISCOUNT! 
*AMOUNT® 

* BALANCE! 
"EXCESS! 


Listing and Outrut of Sample Program 
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ARNONG 
AROOOS 
ARO008 
ARNOCL 
ARQ008 
AROONG 
ARNONY 
AROOOY 
ARCOOL 
ARONONY 
ARNONG 


AROONG 


AROOOS 
ARN00Y 
ARNONY 
APTORS 
ARNONNG 
AROQONL 
AROQOOY 
AROOOY 
AROONL 
ARQNNOL 
AP0N0OL 


ARNOOY 


ARCO04 


ARNNOL 


APNONu 
AROOTY 
ARNN0k 
ARAN 
APOONN 
ARQNgNu 
ARNTONY 
APQNOOY 
ARQOOOL 
ARN0ODNG 
ARrOnnY 
ARON 
ARNONY 
AROgQna 
ARONNY 
ARQOONU 
ARNNOL 
ARNOOY 
APNONY 
ARCOOU 
ARQO0YU 
ABNong 
ARNOSL 
ARNNCH 
AROONL 
APponea 
ARQOQO4L 
APNOOL 
ARNON 
ARNONL 
ARCONL 


RPG I! Compiler Listing 


DOS/VS RPGII 


0056 05 
0057 06 
0058 06 
0059 06 
0060 06 
0061 06 
0062 06 
0063 06 
0064 C6 
0065 06 
0066 06 
0067 07 
0068 07 
9069 07 
0070 07 
0071 07 
0072 07 
0073 07 
0074 07 
0075 07 
9076 07 
0077 08 
0078 08 
0079 08 
9080 08 
0081 08 
0082 08 
0083 08 
0084 C8 
0085 08 
0086 08 
0087 09 
0088 09 
0089 09 
0090 09 
0091 09 
EN D 


Figure 7 (4 


JOB - ARSAMFPL 


90E 
00E 
108 
20E 
30E 
4OE 
50E 
60E 
TOE 
80E 
S0E 
00E 
10E 
20E 
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OF SOURCE 


of 5). 


CSHRECRGD 


CSHRECRGT 


CSHRECRGT 2 


62/03/78 


01 


19 
L1 


LR 


REGION 

ACCTNC 

ACCTNM 

INVNO 3 
INVDATY 
DATPD Y 
AMTOWDJB 
DISTAKKB 
AMTPD Kb 
BAL KB 
DIFF KB 


AMTOW1JB 
DISTA 1KB 
AMTPD‘1KB 
BAL1 KB 
DIFF 1 KB 


AMTOWRJB 
DISTARKb 
AMTPDEKB 
BALR- KB 
DIFFR KB 


14 
45 


104 


PROGRAM - AROOOY 


"NUMBER® 
"NUMBER? 
*DATE* 
‘OWED! 
"TAKEN! 
*PAID! 
*DUE! 


*DISCOUNT® 


"REGION TOTALS! 


t*x?! 


"COMPANY TOTALS! 


txx*t 


Listing and Output of Sample Program 


AR0ONNY 
AR?ONL 
ARON LH 
ARNONG 
A POON 
ARANNY 
AR00%8 
ARCONG 
ARNO0L 
ARSON 
APNNNY 
ARNONL 
ARNOAL 
ARNONG 
ARNNNG 
AROOOU 
APOaNL 
APNOOU 
AeRNOry 
APNONCY 
APNNNY 
APNOAL 
ARNNNY 
AROOKY 
ARN004 
ARON 
ARNON 
APNNCY 
APNO0OL 
ARNNNL 
AROOCL 
APNNNL 
ARonnk 
APONNY 
ARKONR 
ARNOCL 
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2/0 3/78 


REGION ACCOUNT 


Figure 7 (5 of 5). Listing and Output of Sample Program 


46 


NUMBER 


31275 


11352 


23347 
25521 


18274 


ACCOUNT NAME 


ENVIRONMENT CONCERNS 
NU-STYLE CLOTHIERS 


RITE-BEST PENS CO 
IMPORTS OF NM 


STREAMLINE PAPER INC 


INVOICE 
NUMBER 


20451 


27987 


20842 
29273 


29703 


DOS/VS RPGII Auto Report 


CASH RECEIPTS REGISTER 


INVOICE DATE PAID 
DATE 


1/06/77 7730/7 


REGION TOTALS 
T/14s77 71/26/7 
REGION TOTALS 


7/18/77 7/20/7 
V/20/77 T/2ts7 


REGION TOTALS 


1/21/77 7730/7 


REGION TOTALS 


COMPANY TOTALS 


AMOUNT 
OWED 


29.43 
29.43 
87.07 
87.07 


15.80 
797.40 


813.20 
274.03 
274.03 


1,203.73 


DISCOUNT 
TAKEN 


11.93 
11.93 
2.38 
2.38 


14.31 


AMOUNT 
PAID 


15.00 
15.90 
Bn.no- 
40.99 


10.90 
585.47 


595.47 
179.55 


170.55 


€21.02 


DUFF 


4,483 
16.43 
u7.97 
47,97 


5.80 
ann nn 


25,8" 
184,40 


197,19 


PAG® 1 
BALANC? FXCFSS 

DYTSCOUNT 

* 

* 

* 

* 
wk 


368.40" 


Report produced 
by Sample Program 
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AUTO REPORT OPTION SPECIFICATONS 


SRE CANT AED wee Seat ESD ERENT EDP QANDIL CEI SEN Sr SOREN AONE OSES RITES APES A AP AOD ARE SSP AONE “ALSATIAN LEY ASS 


The Auto Report Option Specifications form (Figure 8) can ke used by the 
programmer to select certain options regarding the output from Auto 
Report. The Option specification is not required in the Auto Report 
program. If present, it must appear as the first specification in the 
program. If the Option specification is not present, Auto Report assumes 
all of the options that correspond to blank entries on the specification 
(see individual entries for the meanings of the blank entries.) The 
Option specification cannot be within a source likrary memker that is 
copied by a /COPY statement. Do not confuse the Option specification (U 
in position 6) with the RPG II header specification (H in position 6). 
If the RPG II header specification is not present, either in the Auto 
Report source program or within a copied source library member (see 
index entry Auto Report Copy Specifications), Auto Report generates a 
header specification with blank entries. 


OPTION SPECIFICATIONS 
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Figure 8. Auto Report Cption Specifications 


SPECIFICATICNS 


The following entries on the Cption specificaticns are used in the same 
Way as corresponding entries on standard RPG specifications. See the 
publication DOS/VS RPG II Language for descriftions of these common 
entries: 


e Fage (positions 1-2) 

e Line (positions 3-5) 

e Program Identification (positions 75-80) 
Form Type (6) 


A U is preprinted in this position of the specifications form (Figure 
8). The U in position 6 of an Auto Report statement identifies it as an 
Auto Report Option specification. 


Source (7) 

Entry Explanation 

P The generated RPG II source program is to ke punched into 
cards in addition to being written on a disk work file. 

Blank The generated source pfrogram is to be written on a disk 


work file; it is not to be punched intc cards. 
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Position 7 is used to request that additional output be produced by Auto 
Report. By entering a P in position 7, you can specify that the source 
program be punched into cards. Whether it is punched or nct, the 
generated source ee is written on a disk work PLES from which it is 
immediately: compiled. . a sg ae 


In certain instances, you may gisn- to punch the generated source program 
so that you can manually modify it to suit your specific needs. For 
example, you can reformat the output report by changing the end 
positions on the BEneratco a oa specifications without rerunning Auto 
Report. : 


If a punched deck is eoyuwecea ene deck is punched on the device. 
assigned to SYSPCH with stacker selection into stacker 2. If 
SelectySort is specified in the Auto Report specifications, the object 
module produced by Auto Report for Select/Sort is punched ahead of the. 
generated source program. 


Notes: You can easily separate the punched object cards from the source 


cards as follows: Insert a sorting needle or a wire (such as a 
straightened paper clir) in any of the punch holes of the first card 
column of the object deck, which is punched ahead of the scurce deck. 
The wire is stopped by the first. source card and you can separate the 
deck. This technique works because the first card column of each card 
in the object deck contains a 12-2-9 multipunch, while the first card 
column of the first card in the generated source deck always contains a 
0 punch. 


The object module produced for Select/Sort can also be put out under 
contrcl of the DOS/VS OPTION statement. See index entry Frocessing an 


Auto Report Program for additional information about the DCS/VS OPTION 
statement. 


Positions 8-25 > 


Positicns 8-25 are not used. . Leave them blank. 


Work Files (26) 


Entry Explanation 
1-8 The number of disk work files used by the Sort program 


when Select/Sort is used. 


3-9 The number of tape work files used by the Sort program 
when SelectySort is used. 


Blank | One work file is assumed (disk only). 
Enter the number of work files to be used by the Sort program when the 


Select/Sort function is used. For a complete descrirftion of sort work 
files, see one of the rublications 


® DOS/VS Sort/Merge Programmer's Guide | , 
e DOS/VS Sort/Merge Version 2 Programmer's Guide. 


If one of the above IBM sort programs is not used for the Select/Sort 
function, see the reference manual for the sort program being used. 
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Date Suppress (27) 


Entry Explanation 
N Suppresses the date and the page number on the first 


*AUTO page heading line. 


Blank Page number and date are included on the first *AUTO rage 
heading line. 


If you do not wish the first *AUTO heading line to have the generated 
date on the left and page numker on the right, enter an N in position 
27. When these fields are suppressed, the page title and any cther 
fields you specify can occury the entire line. See index entry *AUTO 
Page Headings Specifications for further information on the generated 
date and page numbers. 


*Suppress (28 


Entry Explanation 
N Suppresses the asterisk indication from generated total 


output lines. 
Blank Asterisks are generated for total output lines. 


If you do not want asterisks to print beside generated totals, enter an 
N in position 28. 


Labels (29) 

Entry Explanation 

U Unlabeled tape work files are used for the Sort frogranm. 
Blank Tape work files for the Sort program have standard 


labels. 


When you use the Select/Sort function and unlabeled tape work files are 
to be used by the Sort program, enter a U in position 29. If you enter 
a U in position 29, you must enter one of the numbers 3-9 in rfesition 26 
to indicate the number of tape work files used. For a description of 
work file labeling, see one of the publications 


e DCS/VS_ Sort/Merge Frogrammer‘s Guide _ 
e DOS/VS Sort/Merge Version 2 Programmer * s Guide. 


If a sort program other than one of the akove IBM sort programs is used 
with the Select/Sort function, see the reference manual for that 
progran. 


Positions 30-74 


Positions 30-74 are not used. Leave them blank. 
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52. DOS/VS RPGII Auto Report 
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The *AUTC Page Headings function and the *AUTO Output functicn rfrovide 
Simplified methods of describing printed output. These functicns of 
Auto Report are requested by entering the characters *AUTO in positions 
32-37 of a record description specification on the standard RPG Output 
Specificatons form. *AUTO can be entered on a heading, detail, or total 
specification (H, D, or T in position 15). *AUTO can be used with only 
one file in a program. That file must be a printer file. (In this 
publication, printer file is defined as any output file using the device 
PRINTER in positions 40-46 of the file description specification, or as 
a line counter file, identified by an L in position 39 of the file 
description specification.) Device independent files are accepted only 
if they are line counter files. 


In RPG II, output specifications are divided into two general types 
(Figure 9): 


1. Record description specifications (positions 7-31) descrike when 
and where the output line is to Le printed. One record description 
specification is required for each different type of line to be 
printed. Only the first record description for a file need contain 
a filename in positions 7-14. 


2. Field description specifications (positicns 23-74) following a 
record description specification tell when, where, and how each 
item of data (field or literal) is to be printed on the output 
record. There may be several field descrirtion specifications 
following a record description specification. 


Auto Report Page Headings and Auto Output specifications are also 
divided into the two general categories: record description 
specifications and field description specifications. However, the 
entries on these specifications are used differently than in standard 
RPG II. 


The following RPG II output entries are not changed when they are used 
with *AUTO. See the RPG II reference manual for descriptions of these 
entries: 


Page (positions 1-2) 

Line (positions 3-5) 

Form Type (position 6) 

Frogram Identification (positions 75-80) 


Positions 71-74 must always be blank on Auto Rerfort output 
specifications. 
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OUTPUT SPECIFICATIONS 
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Figure 9. Two Categories of Cutput Specifications 


*AUTO PAGE HEADINGS SPECIFICATIONS 


The *AUTO Page Headings function provides an easy way to produce a page 
heading at the top of every rage of a printed report (Figure 10). Up to 
five H-*AUTO specifications can be used if a multiple-line page heading 
is desired. If both normal RPG II heading lines and H-*AUTO lines are 
specified in combination for a file, they are printed in the crder 
specified on the RPG Output Specifications sheet. The *AUTO Page 
Headings function can ke used with only one file per program. 


The heading line generated by the first H-*AUTC specification contains a 
date and page number. (The first heading line can also contain a title. 
See the index entry Field Description Specifications, positions 45-70, 
for how to enter a title.) The generated date is left-justified and 
prints with slashes as follows: mm/dd/yy (unless the format is altered 
by the RPG II Inverted Print option, position 21 of the header 
specification). The generated page number is right-justified and is 
preceded ky the word PAGE. The page number field is four digits in 
length and it is zero-suppressed. 


If you do not want the date and page number to print on the first 
heading line, you can suppress them by entering an N in position 27 of 
the Auto Report Option Specifications. 


Note: Auto Report uses one of the unused RPG II PAGE fields (PAGE, 
PAGE1- PAGE7) for page numbering. If all PAGE fields are used in the 
program, Auto Report does not number fages. 


RECORD DESCRIPTION SPECIFICATIONS 


Each *AUTO heading (*H-AUTO) record description defines a separate 
heading line. The record description entries allow the progranmer to 
enter spacing and skipping information and to specify under what 
conditions the line is printed. 


Filename (7-14) 
Enter the name of the printer file (or line counter file) on which the 


heading is to be printed. ‘The filename must correspond to the rules for 
filenames given in the publication DOS/VS RPG II Language. 


54 DOS/VS RPGII Auto Report 


Type (15) 


Enter an H in position 15 on each record description specification which 
defines'a page heading line. This entry, with the entry *AUTO in 
rositions 32-37, defines this as an H-*AUTO heading specification 
(Figure 10). Up to five H-*AUTO specifications are allowed. 


Position 16 


Position 16 is not used in H-*AUTO specifications. Leave it blank. 


SpaceySkir (17-22) 


You may enter your own spacing and skipping values in these rositions, 
according to the rules given in the RPG II reference manual. If you do 
not enter spacing and skipping values in these positions, Auto keport 
skips to channel 1 before the first line is printed and sraces 2 after 
the last H-*AUTO line is printed. If multiple H-*AUTC lines are used, 
Auto Report spaces 1 after each line excert the last. For additional 
information on generated spacing and skipping values, see index entry 
report format. 


Output Indicators (23-31) 


On the first H-*AUTO specification, you may either leave positions 23-31 
blank or enter your own output indicators according to the rules given 
in the puklication DOS/VS RPG II Language. If you leave these positions 
blank, Auto Report causes the corresponding output line to ke printed at 
first page (1P) time in the program cycle and when overflow occurs. 
Thus, the heading is printed at the top of each page of the rfrinted — 
report. You may assign indicators to subsequent H-*AUTO specifications. 
If positions 23-31 are Elank cn any H-*AUTO specification after the 
first, that specification is assigned the same indicators as the first. 


If an overflow indicator is defined on the file description 
specification for the printer file, that indicator is used to condition 
the generated heading specifications. Otherwise, an unused overflow 
indicator is defined for the file on the file description specification 
by Auto Report and is used to condition the line. 


You may use AND and OR specifications with H*-AUTO output indicators if 


you enter an output indicator on the first specification. Normal RPG II 
rules for AND and OR lines aprly. 


*AUTO (32-37) 

Enter *AUTO in positions 32-37. This entry and H in position 15 of the 
output specification (Figure 10) indicate that you are requesting an 
Auto Report heading line. 

Positions 38-70 


Positions 38-70 are not used on the record description line. Leave them 
blank. 


Auto Specifications 55 


FIELD DESCRIPTION SPECIFICATIONS 


gach H-*AUTO record description specification can be followed by one or 
more field descriptions. The field description specifications are used 
to specify the title to be printed on the heading line and to describe 

any other fields and literals to be printed on the line. 


Positions 7-31 
Positions 7-31 are not used on field descriptions. Leave them -Llank. 


‘Note that Output Indicators, positions 23-31, cannot be used tc 
condition a field on an H-*AUTO specification.) 


Field Name (32-37) 


Entry Explanation 

Blank A literal (enclosed in apostrophes) may be entered in 
positions 45-70. The literal is printed on the heading 
line. 

gield Field defined in the peCg ral is printed on the heading 

name line. 

Table A table element is printed on the heading 

name line. 

indexed An array element is printed on the heading line. 

Array 

name 


Use positions 32-37 to enter a field name, table name, or indexed array 
name defined elsewhere in the program that you want to rrint cn the 
ne@ading line. If a name is entered, an edit word may be entered in 
rositions 45-70, but not a literal. A literal must be entered in 
positions 45-70 if positions 32-37 are blank. 


OUTPUT SPECIFICATIONS 
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If Output Indicators (positions 23-31) are left blank on the record 
description specification, Auto Report conditions all fields and 
table/array elements included on the heading line with NIP in positions 
23-25. Therefore, the field or tableyarray element does not frint on 
the first page. (If printed on the first page, the field wight not 
contain meaningful data, since the first record has not been read.) NIiP 
is not generated for the fcllowing RFG II reserved words: FAGE, PAGE1- 
PAGE7, UDATE, UDAY, UMONTH, UYEAR. 


For information on formatting and centering *AUTO heading lines, see 
index entry report format. 


Edit Codes (38) 


You may enter an edit code in position 38 if a numeric field, array 
element, or table element is named in positions 32-37. If you use an 
edit code, positions 45-70 must be blank unless asterisk protection or a 
flcating dollar sign is specified. If position 38 is blank, no editing 
is done by Auto Report unless an “dit word is used. 


Flank After (39) 


Enter a B in position 39 if you want a numeric field reset to zercs 
after it is printed, or if you want an alphameric field reset to bianks 
after it is printed on the heading line. | 


Positions 40-44 
Positions 40-44 are not used with *AUTO heading specifications. Leave 
them blank. For information on the positioning of fields and literals 


in the title line and centering of heading lines in relation to the hody 
of the report, see index entry report format. 


Constant _ or Edit Word (45-70) 


Entry Explanation 

Literal Title or other literal (enclosed in apostrorhes) that is 
(constant) to appear on the printed line. 

Edit The edit pattern used to edit the numeric field 

word named in positions 32-37 of the same field description line. 
Blank Positions 32-37 contain the name of a field which either 


is not edited or is edited by an edit code. 


Use positions 45-70 to specify the title and other information that is 
to appear on the output line and to edit numeric fields that are to 
appear on the line. Rules for specifying literals and edit words are 
identical to those given in the publication DOS/VS RPG II Language 
except that no end positions can ke specified. 


For information on the positioning of fields and literals in the title 


line and centering of heading lines in relation to the body of the 
report, see index entry report format. 
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*AUTO CUTEFUT SPECIFICATIONS 


Detail reports (where a line is printed for each individual reccrd that 
is read) and group printed rerorts (where only totals are printed) can 
be specified using the *AUTIO Output function alone or in combination 
with standard RPG II specifications. The *AUTO Output function . 
generates totals and formats columns and column headings. 


A single detail or total *AUTO record descrirtion (C/T-*AUTO) 
specification and its associated field description specificaticns can be 
used to specify: 


ve Up to three lines of column headings to appear akove a field. 

2% Accumulation of several levels of totals, including a final total 
(known as total rolling). 

3% Generation by Auto Report of end positions for cclumn headings and 
fields. 

4. Generation by Auto Repeort of the K edit code for numeric fields. 

= Fields or literals to ke printed next to generated totals. 


This section describes the *AUTO Output record description specification 
and the four types of field description specifications that can ke 
associated with it. The four types are distinguished by entries in 
position 39. The remaining entries on a field description specification 
have different meanings depending on the entry in position 39. 


The valid entries in position 39 of the field description specifications 
and their meanings are: 


e Blank or B: Indicates the associated field or literal is to appear 
on the detail line. 


® Az Indicates the associated numeric field is to be printed on the 
detail line and accumulated. A total is printed for each control 
level defined in positions 59-60 of the input specificaticns for 
the program. A final total is also printed (LR). 


e C: Indicates the associated literal is to be printed on the second 
or third line of column headings. 


e ly 2¢ Se he De (65: Typ Se 9, Rt Indicates the associated field or 
literal is to appear on the total line generated for the respective 
control level indicatcr (11-19, LR). 


See index entry group printing for the effect of these entries in a 
group printed report. | 


Note: Examples of the four types of Auto Report field description 
specifications are found in Fart I: How to Use RPG ITI Auto Report, Part 


iI: Sample Program, and under index entry group printing. 


RECORD DESCRIPTION SPECIFICATIONS 


An Autc Report record description specification must contain the entry 
*AUTO in positions 32-37. ¥*AUTO can appear only on a record description 
specification. This entry indicates that the record description and the 
following field descriptions are redefined according to their use by 
Auto Report. | 
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Filename (7-14) 


Enter the name of the printer file (or line counter file) on which the 
report is to be printed. This must be the same file named on H-*AUTO 
specifications, if any. The filename must correspond to the rules for 
filenames given in the publication DOS/VS RFG II Language. 


Type (15) 
Entry Explanation 
D The Auto Report specifications descrike a report containing 


detail lines. 


T The Auto Report specifications describe a report containing 
total lines, kut no detail lines (group printed report). 


Enter aD in position 15 and *AUTO in positions 32-37 if you want Auto 
Report to generate a report that contains detail lines. The field 
description specifications associated with the D-*AUTO record 
description are used to specify fields, column headings, total rolling, 
and literals to appear on total lines. Examples of D-*AUTC 
specifications and reports are found in Part I: How to Use REG II Auto 


Report. ~ 


Enter a T in position 15 and *AUTO in positions 32-37 if ycu want Auto 
Report to generate a group printed report (see index entry grcur 


printing). 


Only one detail or total *AUTC (D/T-*AUTO) record description 
specification can be used in a program. 


Fetch Overflow (16) 


Enter an F in position 16 if you want to specify fetch overflcw. The 
normal rules for fetch overflow apply. See the publication DOS/VS RPG 


II Language. 


When used with the *AUTO Output function, fetch overflow aprlies only to 
the detail line. If group rfrinting is specified (T in position 15), 
fetch overflow applies to the lowest level total line to ke printed. 


Space/Skip (17-22) 


Enter spacing and skipping values in positions 17-22 according to the 

normal RPG II rules. Entries specified apply only to the detail line 

generated by a D-*AUTO specification or the first total line generated 
by a T-*AUTO specification. 


Leave positions 17-22 blank if you want single spacing to be dcne after 
each detail line printed or, if group printing is srecified, after the 
first total line printed. For information cn spacing and skipping for 
generated column heading and total lines, see index entry report format. 


Qutput Indicators (23-31) 


Enter any valid output indicators in positions 23-31 to condition the 
detail or group print line generated ky this *AUTO specificaticn. If 
these positions are left blank on a D-*AUTO specification, the generated 
detail line is conditioned by NIP. Therefore, it is not printed at 
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first page (1P) time in the RFG II program cycle. If these positions 
are left Llank for a T-*Auto specification, the first generated total 
line is conditioned by the lowest control level indicator defined in the 
program. (See index entry group printing for additional information 
about the use of this entry with a T*-AUTC specification.) 


You may use AND and OR specifications with *AUTO output indicators if 
yeu enter an output indicator on the first record descrirtion 
specification. Normal RPG II rules for AND and OR lines apply. 


Indicators you enter in positions 23-31 of the record description 
specification (and its associated AND/OR lines) apply only to the detail 
line generated by a D-*AUTO specification or the group print line 
(lowest level total specification) generated Ly a T-*AUTO specification. 


If column headings are specified in the field descriptions that follow 
this *AUTO record description, they are conditioned by either: 


1. The sare indicators that were specified for the first H-*AUTO 
specification. 


oe The first page (1F) indicator in an OR relationshir with the 
| overflow indicator specified fcr the file on the file description 
specification. If no overflow indicator is specified, Autc Report 
defines an unused overflow indicator and uses it to condition the 
lines. 


*AUTO (32-37) 


To indicate that you are using Auto Report, enter *AUTO in positions 32- 
37 on the record description line. Position 15 must contain a D cr aT 
in this case, to indicate a detail or total *AUTO specification. Only 
one D/TI-*AUTO specification may be used in a program. , 


Fositicns 38-70 
Positions 38-70 are not used on a D/T-*AUTIO record description 
specification. Leave them -Llank. 


FIELD CESCRIPTION (BLANK CR B IN POSITION 39) 


D-*AUTO and T-*AUTO field description specifications containing a blank 
or B in position 39 descrike: 


An alphameric field such as an item description 

A numeric field that is not totaled 

A literal 

A field with a literal to be used as a column heading (Figure 11} 


@ @ 6 6 


A field named on the line (or a literal, when no field is named) 
following a D-*AUTO record description specification is printed only on 
the detail report line. If the field (or literal, when no field is 
named) on the line follows a T-*AUTC record description, it appears only 
on the first total line generated. 


Positions 7-22 


Positions 7-22 are not used on the field descrirtion lines. Leave them 
blank. 
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OUTPUT SPECIFICATIONS 
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Figure 11. Auto Report Field Descrirftion Specificaticns (Blank in 
Position 39) 


















































































































































Enter any valid RPG II output indicators in positions 23-31 or leave 
them Elank. If these positions are left Etlank, the field (or literal, 
when no field is named on the line) is printed each time the detail line 
is printed. When grour printing is specified (I-*AUTIC specification), 
the field (or literal, when no field is named cn the line) is rcrinted 
each time the lowest level total line is printed. 


If a column heading is specified in rfositions 45-70 to appear over a 
field named in positions 32-37, the column heading is not affected by 
output indicators entered in positions 23-31. 


Field Name (32-37) 


You may enter a field name, indexed array name, table name, or blanks in 
positions 32-37. If you leave positions 32-37 klank, you wust enter a 
literal in positions 45-70 of the same field deeeripeion srecification. 


If a field name, indexed array name, or table name is entered, the value 
of the field or element is printed on the detail line (on the first 
total line, if group printing is specified). 


Edit Codes (38) 


You may enter a valid FFG II edit code in position 38 if ¢ositicns 32-37 
contain the name of a numeric field, a numeric array element, or a 
numeric table. This position must be blank for alphameric fields and 
table/array elements, and for literals. If position 38 is left blank on 
a field description line for a numeric field or table/array element, a K 
edit code is provided ky the Auto Report program. The K edit code 
causes a numeric field or element to be printed with commas and a 
decimal point, such as 3,489.13. It also causes zero suppression; zero 
balances are not printed and negative balances are printed with a minus 
Sign on the right. 


Auto Specifications 61 


Blank After (39) 


Entry Explanation 
Blank Field is not to ke reset to zeros or blanks after printing. 
B Numeric field is reset to zeros after it is printed; 


alphameric field is reset to blanks. 


Enter a B in position 39 when alphameric or numeric fields, array 
elements, or table elements are to ke reset to zeros or blanks after 
they are printed. Blank-after cannot be used for literals. This entry 
applies only to the detail line (or the first total line, if grcur 
printing is specified). 


End Position in Output Record (40-43) 


Either leave positions 40-43 klank or enter the print position cf the 
right-most character of the field (literal, if no field is named in 
positions 32-37) to be printed. If this entry is blank, Auto Repert 
generates end positions for fields, literals, and column headings. See 
index entry report format for additional information and considerations. 


Fosition 44 


Position 44 is not used, since packed and binary data and rightyleft 
signed numeric data cannot he specified. Leave this position -kFlank. 


Constant (45-70) 


You may enter a literal (constant) or blanks in positions 45-70. 
Literals are enclosed in arcstrophes according to the normal RPG II 
rules for coding literals. 


If these positions are left Klank, a field name, indexed array name, or 
table name must be entered under Field Name (positions 32-37). Column 
heading continuation lines (see index entry field description, C_ in 
position 39) may follow this field description line, but the first line 
of the printed column heading will be blank. 


Ifa literal is entered in these rositions along with a field name in 
Fositiocns 32-37, the literal is printed on the first column heading line 
over the field value. When a column heading is used, the length used to 
space the column on the report is the greater of the longest column 
heading length or the field length, adjusted for editing. (See index 
entry report format for additional information cn how columns and fields 
are centered and spaced by Auto Report.) 


If a literal is entered in rositicns 45-70 and Field Name (fositions 
32-37) is blank, the literal is printed each time the detail report line 
is printed. In group printing, the literal is printed each time the 
first generated total line is printed. 


FIELD CLESCRIPTION (A IN POSITION 39) 


Enter an A in position 39 of a field descrirtion specification following 
a D/T-*AUTO specification if you want Auto Report tc accurulate and 
print totals for the field named in positions 32-37 (Figure 12). As 
many levels of totals are printed as you have defined in the Control 
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Level entry (positions 59-60) on input specifications. A final total 
(LR) is also printed. (This process is called total rolling.) 


If group printing is specified and a control level indicator higher than 
the lowest defined control level is specified in positions 23-31 on the 
record description specification, totals are generated for the indicator 
entered, all higher defined indicators, and LR. 


The total output records generated by Auto Report as a result of 
entering an A in position 39 of a field description specificaticn are 
conditioned by the associated control level indicator defined in the 
input specifications. Cne total output record is generated fcr each 
control level indicator defined in the program. 


Generated Total Fields 


When an A is specified in position 39 of a detail or total *AUTC field 
descrirtion specification, Auto Report generates and names total fields 
to be used in accumulating the required levels of totals. Field names 
for the total fields are generated Ly Auto Rerort based on the name in 
rositicns 32-37 of the A-type field description. Names are generated in 
the following way: 


7 If the specified field name has fewer than six characters, one 
character is added to the name to create a name for the total 
field. The added character is 1-9 or R, corresponding to the total 
indicators L1 through 19 and LR, respectively. For example, if 
ITEM is the specified field name and all nine control levels are 
defined, the generated field names are: 


ITEM1, ITEM2, ..-ITEM9, and ITEMR 

Ze If the specified field name has six characters, the last character 
is replaced by one of the characters 1 through 9, or R. For 
example, if AMOUNT is the specified field name and all nine control 
levels are defined, the generated field names are: 


AMCUN1, AMOUN2, ..-AMOUN9,AMOUNR 
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Total fields are generated and named for all cecntrol level indicators 
defined in the program and for LR. (For an exception to this rule, see 
group printing, example 1 later in this section.) For example, if L1 
and L3 are assigned to control fields on the infgut specifications and 
the field QTY is specified, three total fields, QTY1, CTIY3, and QTYR are 
generated and named by Auto Report. All total fields generated fcr the 
same level, such as QTY and AMOUNT1, are printed on the same total 
line, and that line is conditioned by the corresponding control level 
indicator. , 


Generated total fields are two digits longer than the original field. 
For example, if the field QTY is defined with a length of 3, QTY1, QTY3, 
and QTYR all have lengths of 5. The number of decimal rfositicns remains 
the same in the generated fields. You can define a field name 
previously in a program which is the same as a generated field name, 
giving that field whatever length and numkter of decimal rfositicrs you 
wish. If you do this, the generated field is assigned the previously 
defined length and number of decimal positions (if the previcus field is 
numeric). : 


Considerations — 
Generated field names may ke referenced in RPG II specifications that 
are included in the program. The programmer must be aware, however, 
that the use of generated fields in this way may interfere with the 
autcmatic accumulation of totals performed ky Auto Refert. 


Field names ending in 1-9 or R should not be used in an Auto Report 
program that accumulates totals, since Auto Rerort generates total 
fields ending in those characters. This is especially important for 6- 
character field names, since total fields are formed Ly replacing the 
last character with 1-9 or R. , 


No field name may be used more than once with an A in position 39. 


Also, if a 5~ or 6-character field name is specified with an A in 
positicn 39, a second 5- or 6-character field name in which the first 
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five characters are identical may not be specified with an A in position 
39. For example, if the following four field names are specified with 
an A in position 39 in an Auto Report specification, all but the first 
are invalid: 


FIELD 

FIELDX - invalid because the first five characters duplicate the 
first five characters of the first field 

FIELDY = invalid for the same reason as FIELDX 

FIELD = invalid since it is a duplicate of the first field 


Positicns 7-22 


Positions 7-22 must remain Llank on the field descrirtion lines. 


Output Indicators (23-31) 


Enter any valid RPG II output indicators in positions 23-31 or leave 
them Elank. If you leave these positions blank, the field described is 
printed on each detail line. If you enter indicators in positions 23- 
31, the field is printed only when the conditions represented ky those 
indicatcrs are met. Leave these positions Elank fcr group fprinting. 


If a column heading is specified in positions 45-70 to appear over a 
field named in positions 32-37, the cclumn heading is not affected by 
Output indicators entered in these positions. Also, cutput indicators 
specified when position 39 contains an A do not affect field description 
specifications generated for totals. 


Output indicators specified on an A-type field description specification 
following a D-*AUTO specification condition the calculations generated 
for the field. If the A-type field descripticn follows a T-*AUTO 
Specification, however, a specified indicator does not conditicn 
calculations generated for the field. 


Field Name (32-37) 


When you enter an A in position 39, you must enter the name cf a numeric 
field that is to be accumulated in positions 32-37. These positions may 
not identify an array, array element, or table. The field named is 
printed on each detail line of the report. If group printing is 
specified, the total field for the lowest control level indicator 
defined (11, L2,.-.. L9, LR, in that order) is rrinted on the generated 
total line. (For an exception to this rule see group frinting, example 
1, later in this section.) ‘Totaling for any particular field ky 
entering an A in position 39 may be specified only cnce in each program. 





In order to generate calculation and output specifications to accumulate 
and print the various levels of totals required, Auto Report creates and 
names additional totaling fields. Names for the fields are constructed 

based on the field name specified in these rositions acca orna. to a set 

of rules (see index entry generated total fields). 


Edit Codes (38) 


You may enter an edit code in position 38 or leave it blank. If you 
leave this position blank, a K edit code is generated for the field 
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named in positions 32-37. This causes the field to be edited with 
commas and a decimal point, such as 1,234,567.89. The field is also 
-zero~suppressed. Zero balances are net printed; negative balances are 
printed with a minus sign on the right. The edit ccde you enter, or the 
generated K edit code, applies to all generated total fields as well as 
to the field named in rositions 32-37. 


Fositicn 39 


Enter an A to indicate that totals are to be accumulated fcr the field 
named in positions 32-37 of this field descrirftion. A total is printed 
for every control level indicator defined in the input specifications 
and for LR. When position 39 contains an A, rpositicns 32-37 must 
contain the name of a numeric field. Positions 45-70 may contain a 
literal to ke used as the first line of a column heading. (See index 
entry generated specifications for additional information.) 


Note: When the lowest defined control level indicator used tc condition 
a I-*AUTO specification is higher than the lowest control level 
indicator defined in the input specifications, cnly the total lines 
corresponding to the lowest defined control level indicator used to 
condition the T-*AUTO specification, the higher defined control levels, 
and LR are generated. See index entry group printing. 


Resetting Total Fields to Zero: When position 39 contains an A, the 
Auto Report program generates a B (blank after) in position 39 cf all 
the detail and total field description specifications generated from the 
field name specified. Thus, the field value for the specified field | 
name and any generated field name are reset to zero after the field 
value is printed. 


If group printing is specified, Auto Report generates a calculation to 
reset the specified field tc zero on each cycle. This prevents the same 
value from being accumulated more than once. An unconditioned total 
calculation operation (Z-ADD) is used to set the field value to zero. 
This calculation is the first total calculation in the generated RPG II 
source program. 


Asterisk Indication: To indicate that a printed line is a generated 
total line, asterisks print on the line, to the right of the highest end 
position generated from the D/T-*AUTIO specification. One asterisk 
prints to the right on the lowest level total line generated. Cne 
additional asterisk prints on each higher level line including the final 
total. 


For example, suppose 11 and L3 are defined control level indicators ina 
program. One asterisk prints to the right of the L1 line, two asterisks 
print on the L3 line, and three print on the IR line. AS many as ten 
asterisks print on the LR line if all nine control level indicators are 
defined in the program. 


If you do not want asterisk indication on your report, you can suppress 
the generation of asterisks on total lines by entering an N in position 
28 of the Auto Report Cption Specifications. 


End Position in Output Record (40-43) 


Positions 40-43 may be left blank or may contain the frint position of 
the right-most character of the field to ke printed. If this entry is 
blank, Auto Report generates end positions for fields and column 
headings. See index entry report format for additional information and 
considerations. | 
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Position 44 


Position 44 is not used with Auto Report, since packed and kinary data 
and right/left signed numeric fields cannot be specified. Leave these 
positions blank. 


Constant (45-70) 


Either leave positions 45-70 Elank or enter a literal. Do not enter an 
edit word; editing is accomplished by an edit code. if a literal is 
entered when position 39 contains an A, the literal becomes the first 
line of the column heading over the accumulated field. 


If these positions are left blank, the first line of the column heading 
is blank, but column heading continuation lines can still ke used to 
specify the second and third line of the column heading (see index entry 


field description, C in position 39). 


See index entry report format for information on how column headings and 
fields are centered and spaced by Auto Rerort. 
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FIELD CESCRIPTION (C IN POSITION 39) 


*AUTO field descriptions can ke used to specify a second and third 
eoruns heading line by entering a C in position 39. 


At times you may want more information in a column hese than can be 
contained on one line. Auto Report enables you to specify the second 
and third lines of column headings by simply specifying the literals to 
appear on those lines. No additional heading output lines need be 
coded; no end positions need ke calculated. The special field 
description specification that allows you to do this is identified by a 
C in Epeer nee 39 (Figure 13). _ 


Positions 7-38 

Positions 7-38 must be Elank cna field Sees ion that has aC in 
rositicn 39. 

Position 39 

Enter aC. One or two C-type specifications may follow a field 
description specification that has an A, E, or Elank in positicn 39 and 
an entry in positions 32-37. The first C-type specification causes a 


second column heading line to be generated. The second C-tyre 
specification causes a third column heading line to ke generated (Figure 


13). 
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Positions 40-44 


Positions 40-44 must be blank on a C-type field description 
specification. 
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Constant (45-70) 


Enter a literal (constant), up to 24 fositions including -Llanks, 
enclosed in apostrophes. The literal becomes the seccnd or third line 
of column headings, defending on whether it is cn the first or second C- 
type specification. If two or three column heading lines are specified, 
the shorter literals are centered on the longest. 


FIELD DESCRIPTION (1-9 OR R IN POSITION 39) 


Enter 1, 2, 3, 4, 5, 6, 7, 8, 9, or R in position 39 of a field 
descrirtion to specify a field or literal to ke vcrinted cn a specific 
total line. 


Auto Report allows you to print other information on generated total 
lines in addition to the generated totals resulting from A-type field 
descriptions. The value entered in position 39 corresronds tc the level 
of the total line on which the information is to be printed (the 
corresponding control level must te defined in fositicns 59-60 in the 
input specifications). For example, a 3 in position 39 indicates the 
information is printed on the L3 total line; an R indicates the 
information appears on the final total, or LR, line (Figure 14). Fields 
and literals specified in this way are printed to the left cf the 
leftmost generated total on the line. See index entry report format for 
exact placement. 


This type of field descrirtion can be used to print identifying 
information such as DISTRICI TOTAL, GRAND TCTIAL, or other literal 
information. It can also ke used to print a field and to specify an 
edit word, floating dollar sign, or asterisk protection for the field. | 
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Figure 14. Specifying a Literal and a Field to Print on a Generated 
Total Line | 


a 


If none of the *AUTO output fields is defined with an A in position 39, 
1-9 or R cannot be used in rosition 39. 
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In group printing, only specify numbers that are higher than the lowest 
control level indicator used to condition the T-*AUIO specification. If 
the T-*AUTO specification is not conditioned Ly a ccntrol level 
indicator, use only numbers that are higher than the lowest ccntrol 
level defined in positions 59-60 on the input specifications. 


Positions. 7-31 


Positicns 7-31 must be klank on a field description line with 1-9 or R 
in position 39. 


Field Name (32-37) 


Enter the name of a field, an indexed array name, or a table name. The 
corresponding field or element value prints on the total line indicated 
by the entry in position 39. If you leave positions 32-37 blank, you 
must enter a literal in positions 45-70. 


Edit Ccde_ (38) 


You may enter an edit code in position 38 to edit a numeric field named 
in Field Name (positions 32-37). If position 38 is left blank, an edit 
word may be entered in positions 45-70. If position 38 is blank, no 
edit code is assumed by Autc Report. 
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Positicn 39 


Enter one of the numbers 1, 2, 3, 4, 5, 6, 7, 8, 9, or the letter R. 
These entries correspond to the indicators Li, 12,... L9, and LR. The 
entry identifies a specific total line on which the field or literal 
described is to be printed. 


The entry in position 39 must correspond to a control level that is 
defined in the input specifications in the program. [In group printing, 
the entry in this position must be higher than the control level of the 
first total line generated. 


End Position in Output Record (40-43) 

Do not make an entry in positions 40-43 on field descrifticn 
specifications with 1-9 or R in position 39. See index entry report 
format for additional information and considerations. 

Fositicn 44 


Leave position 44 blank. 


Constant or Edit Word (45-70) 


You may leave positions 45-70 blank, or you may enter a literal or edit 
word. 


If Field Name (positions 32-37) on this specification line contains an 
entry, positions 45-70 may contain any of the fcllowing: 


@ Blanks, if no editing is needed for the field or if the field is 
already edited by an edit code in position 38. 


e Edit word, if special editing is desired. 
® Floating dollar sign or asterisk protection entry used with an edit 
ccde. 


Positions 45-70 may not contain a literal when Field Name contains an 
entry. However, when Field Name is blank, positions 45-70 must contain 
a literal. 


GRCUP FRINTING 


In group printing, data is summarized for a group of input records and 
only totals are printed on the report. Totals may consist of subtotals 
with a final total, or only a final total. 


Specifications 


In order to specify grceup frinting using Auto Report, enter a T under 
Tyre (position 15) with *AUTO in positions 32-36. You may enter a 
control level indicator under Output Indicators (fositicns 23-31). 


When a I-*AUTO specification is used, a line is not printed fcr each 
individual record that is read, but only after a complete contrcl group 
has been read. This is shown in the two group printing examples which 
follow. 
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In Example 1a total line is generated for the lowest control level 
indicator specified in rositions 23-31 and for all Higher control level 
indicatcrs defined and IR. 


In Example 2, however, no control level indicators are specified in 
positicns 23-31. In this case a total line is generated for the lowest 
control level indicator defined on input specifications (positicns 59- 
60) in the program and for all higher control level indicators defined 
and LR. 


Fields and literals defined on field descrirticn specificaticns which 
have a blank or B in position 39 and follow a I-*AUTO record description 
are printed on the lowest level total line. Fields defined with an A in 
position 39 are not printed on the total lines, but the total fields | 
created by Auto Report (see index entry generated total fields) are 
printed on their associated total lines. Continued column headings (C 
in position 39) and total-indicated fields (1-9 or R in position 39) can 
also be specified on field descriptions following a T-*AUTC reccrd 
description. 


utput indicators may ke entered in positions 23-31 of a field 
des cription specification fcllowing a T-*AUTO record descrirticn if 
opoesition 39 of the field description contains a blank or a B. If output 
andicators are used on a field descrirftion which has an A in position 39 
£Ollowing a T-*AUTO specification, those indicators are ignored by Auto 
Report. Cutput indicators may not be used on a field eeece reer that 
contains C, 1-9, or R in position 39. : 


Example 1 


In this example, a group printed report is prepared to show sales totals 
for Any Company. The report is similar to those prepared in Fart I: How 
to Use RPG II Auto Report. However, in this example, only the totals 
for each region and the entire company are shown; individual items 
{detail lines) are not listed. ' 


A disk summary file, DISKSUM, is also produced by this program. The 
summary file contains a. summary record of the sales data for each 
Eranch. | | 


Figure 15 shows the file description and input specifications fcr the 
progran. BRANCH and REGICN are defined as control fields. 


Figure 16 shows the output specifications and the group printed report. 
Since the T-*AUTO specification is conditioned by 12, only the totals 
for REGION (L2) and for the entire company (LR). are printed cn the 
report. The totals for BRANCH (L1) are not frinted. 


The output specifications for DISKSUM (Figure 16) illustrate use of 
standard RPG II output specifications in the same frrogram with *AUTO 
specifications. The output record descriked is written on the disk 
file, CISKSUM, when there is an 11 control break (BRANCH field changes). 
Since the TI-*AUTO specification is conditioned by 12, Auto Report does 
not generate fields for the L1 control level, although L1 is defined in 
the input specifications. Therefore, standard RPG II calculation 
specifications must be used to calculate the L1 totals. The L171 total 
fields that are written on the DISKSUM file (SCLDC1, SOLDV1, and VALUE1) 
must be defined in these calculations. 
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Example 2 


In this example, a group printed report similar to Example 1 is printed 
using the same file description and input specifications (Figure 15). 
Figure 17 shows that by not conditioning the T-*AUTIC specification, 
totals are printed for all defined control levels and LR. 
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Figure 15. File Description and Input Specifications for the Group 
Printed Reports in Example 1 and Example 2 
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Figure 16. Using *AUTO to Produce a Group 
and Final Totals. 
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Figure 17. Using *AUTC tc Produce a Group Printed Report Shcwing 
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‘AUTO REPORT COPY SPECIFICATIONS 


The Auto Report Copy function provides a way to include cataloged RPG II 
source specifications into an RPG II program. The source specifications 
that are included must reside as a source library member on disk. The 
source likrary member is created using the CDOS/VS librarian functions 
described in the publication COS/VS System Management Guide. 


Using the Copy function, you can include source specifications that are 
identical or nearly identical in several different programs and thus 
reduce the need to repeatedly code specifications that are used in 
several programs. For example, if file descrirftion and input 
specifications for a particular file are very similar in different 
programs, these specifications can ke placed in a scurce likrary member 
using the Library Maintenance program and included in any program in 
which the file is used ty means of the Copy function. 


Auto Report specifications and any valid RPG II specifications, 
including tables and arrays, can be copied in this manner. The Auto 
Report Option specification and other Copy statements cannot ke copied. 


See Part I: How. _to Use RPG II Auto Report for an example of using the 
Copy function. 


The specifications included in an Auto Report frogram by means of the 
Cory function are initially placed in the program immediately following 
the /CCFY statement. When all specifications have keen coried from the 
source likrary, the entire Auto Report program is sorted into the order 
required by the RPG II compiler (see index entry order of generated 
specifications). | 


ZCOPY STATEMENT SPECIFICATICNS 


You request the Copy function by means of a special statement, the /COPY 
statement, that 1s included in the Auto Report frogram. This statement 
identifies the source library member that contains the REG II 
specifications to be included in the RPG II source frogran generated by 
Auto Report. /COPY statements must follow the Auto Report Option 
specification and they must precede source tatles and arrays (File 
Translation tables, Alternate Collating Sequence takles, and ccrpile 
time takles and arrays). The format cf the sCCFY statement is: 


Position(s) Entry 


4-5 Page and line number indicating the placement cf the 
statement in the sequence of Auto Refort source 
specificaticns. 

6 | This position may contain any entry except H or U, or may 
be blank. 

7-11 Enter the characters /COPY. 

42 | Blank 

13-22 — ¥eYYYYYYYY 


X is the name of the sublikrary containing the scurce 
library memker to be included. yyyyyyyy is the name, up 
to eight characters long, of the member to ke included. 


23-49 Blank 
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50-80 Enter any information or comments. The contents of these 
positions are not read Ly Auto Report. 


Figure 18 shows an exanple of the /COFY statement. 
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Figure 18. Example of the /CCPY Auto Report Statement 


MOCIFYING CCPIED SPECIFICATICNS 


You can include statements among your Auto Report specificaticns to 
modify file description and input field specifications as they are . 
copied from the source library. No other types of specificaticns can be 
modified. /COPY modifier statements from the scurce file which add, a 
change, or delete entries on cataloged input field specificaticns are 
identified by an X in rosition 6 of the Autc Rerort Listing. 


Modifying File Description Specifications 


To modify a file description specification that is copied frcem a source 
library, enter the filename in positions 7-14 of a file description 
specification (F in position 6). Then make only those entries cn the 
line which are to replace existing entries in the copied specificaticn . 
Or which are to be included as new entries. Blank entries in the 
modifier statement do not affect the copied statement. 


For example, suppose the file description specification for a frequently 
used file named SALES is to be copied from the source likrary. The 
Original specification contains an I in File Type (Position 15), 
defining SALES as an input file (Figure 19, insert A). In a particular 
program, you want to update the sales file, so you must change position 
15 to a U. Therefore, you must include a modifier file descrirticn 
specification (Figure 19, insert B) in the Auto Report source program. 
The modifier statement must contain the filename, SALES, and the new 
File Tyre Entry, U. As a result of the modifier statement, the File 
Type on the copied file description specification is changed from I to U 
(Figure 19, insert C). 
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Figure 19. 
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FILE DESCRIPTION SPECIFICATIONS 


File Type Mode of Processing 


Length of Key Field or 
of Record Address Field 


File Designation ~~ 
End of File 


Record Address Type 
Type of File 
Organization 

vor Additional Area 


Filename Sequence 


File Format 


©} Overflow Indicator 


Key Field 
Starting 
Location 


Block Record 
Length Length 


1/0/U/C/0 
a ~P/S/C/R/T/D/F 


FILE DESCRIPTION SPECIFICATIONS 


File Type : Mode of Processing 


Length of Key Field or 
of Record Address Fietd 


File Designation 


End of File 
Record Address Type 


Filename Sequence Type of File 
Organization 


wor Additional Area 


File Format 
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_ Extension Code E/L 





Extension Code E/t 





Modifying a Copied File Description Specification 


DISKKO | 


Device 


Device 





In order to set an entry to blanks, enter an ampersand (&) in the first 


position of that entry on the modifier statement, and leave the 
remaining positions Elank. 


For example, 


in order to remove the Block 


Length entry (positions 20-23) from the cataloged specification shown in 


Figure 19, 


Figure 20, and leave positions 21-23 blank. 


insert A, specify an ampersand in pcsiticn eM as shcwn in 


Modifier statements for file description specifications do not have to 
be in any particular order in the Auto Report source program, except 
that they may not immediately follow the /COPY statement if input field 
specirications are alsc being modifed. 
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Only one file description specification with a particular filename is 
allowed to come from the likrary members and a particular filename can 
be used only once on a modifier statement. 


No modifications are aliowed to the file descrirtion continuation 
specifications that may accompany a copied file descrirticn. New 
continuation specifications can be added by placing them after a file 
description modifier statement for the file. A maximum of five 
continuation specifications is allowed to fcllcw a file description 
specification (combined total of original and added continuaticn 
specifications). 


Modifying Input Field Specificaticns 


Only input field specifications (specifications describing individual 
fields on the input record) can be modified. To modify an input field 
specification copied from the source libkrary, enter the field name in 
positions 53-58 of an input field modifier statement (I in position 6). 
Modifier statements for input field specifications must immediately 
follow the /COPY statement in the Auto Report program that copies those 
specifications. The first specification following the /COFY statement 
which is not an input field specification is considered the end of the 
input field modifier statements for that /COPY statement. (A comment. 
statement with an I in position 6 is not considered the end of the input 
field modifier statements.) 


The method of replacing, adding, or blanking entries is similar to the 
method used to modify file description specifications. To replace or 
add entries, code the new entry in the proper location in the modifier 
statement; to set an entry to blank, place an anpersand (&) in the first 
position of that entry in the modifier statement. Figure 21 shcws 
examples of modifying input specifications. 


The modifier statement modifies all ccpied input field specifications 
which have the same field name. If there is no input field by the same 
name, the modifier statement is added to the frogram as a new input 
field specification. Modifier statements with duplicate field names are 
allowed (length and numker cf decimal positions must also be the same), 
but only the first is used to modify a copied specification. Cthers are 
added as new input field specifications. 


You Can include up to 270 input field modifier statements rer /COPY 
statement. If more than the ninimunr amount of virtual storage is 
availakle, more than 270 statements can be accerted. 


Note: For best results, place those statements first which modify 
existing input field specifications; then place those which are to be 
added as new input field specifications. This procedure is suggested 
because input field modifier statements which do not fit into the 
special storage table for modifier statements are added tc the RPG II 
source program as new input field specifications. This order of 
specifying modifier statements increases the likelihood that excess 
statements, if any, will be valid fieid descrirtions. 
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Figure 20. 
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Figure 21. Modifying Copied Input Field Specificaticns 
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AUTO REPORT SELECT/SORT SPECIFICATIONS 


e 


The Select/Sort function enables you to: 


1. Select only those records from a file which you desire tc rrocess. 
2s Sort a file into a specific sequence befcre processing it. 
3. Select records you desire to process, sort those records, and then 


process them. 


The Select/Sort specifications (Figure 22) are used to specify how you 
want tc process the file. Positions 15-43 describe which records to 
select for processing from the file and positons 44-52 descrike how to 
sort the records before processing. Individual specifications may 
contain koth select and sort entries. See Fart I: How to Use RPG If 
Auto Report for examples of Select/Sort. 





SelectySort specifications can be placed anywhere within the scurce 
program following the Auto Rerort Orftion specification and preceding any 
compile time tables and arrays. Select/Sort specifications may also be 
copied from a source likrary member by means of a /COFY statement. 


Based on the Select/Sort specifications, Auto Report produces an object 
module that is link-edited with the REG II okject program. A file 
description continuation specification is also produced for the 
generated RPG II source prcgram defining a Read Exit for the file using 
SelectySort. The entry point of the SelectysSort object module, RGSORT, 
appears on the generated Read Exit. (See index entry generated 
specifications for an example of a generated Read Exit.) 


SELECT/SORT SPECIFICATIONS 


Selection Criteria Sort Criteria 






Single or High Value 
Low Value 





Filename Comments 


Continuation (A) 
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Figure 22. Select/Sort Specificaticns 
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POSITICNS 1-14, 53-80 


Page and Line Number (1-5) 


These entries are coded the same way as in RPG II specifications. 


Form Type (6) 


Enter an S in position 6 to specify the SelectySort functicn. 


Filename (7-14) 


Enter a filename in positions 7-14 to identify the file which is being 
processed. A spread card file cannot be named in positions 7-14. Rules 
to follow when specifying a filename are: 


1. The filename must ke the same as the filename on a file description 
specification for a primary or secondary file. 


Le The filename must ke entered on the first Select/Sort 
specification. 


3 Only one file in a program can be used with the Select/sSort 
function. Therefore, the second and all succeeding Select,sSort 
specifications must contain either blanks in positions 7-14 or the 
same filename as in the first specification. 


4. The Mode of Processing (position 28) entry on the file description 


specification must be Llank, that is, the file must be sequentially 
processed, without limits. 


Comments (53-74) 


You may enter comments in these positions. 


Frogran Identification (75-80) 


Code this entry as you would on an RFG specifications form. 


SELECTICN CRITERIA (15-43) 


Positions 15-43 are used to select specific records from a file for 
processing. Records can Le selected from input, update, or ccnkined 
files which are defined as primary cr seccndary files in file 
descrirtion specifications. 


Continuation (15) 


Entry Explanation 

Blank 1. This specification contains a selection critericn which, 
if met ky an input record, qualifies that record for 
processing. 
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2s This specification begins a set of selecticn criteria 
that must all ke met by a record to te selected for 
processing. 


A on This Specification continues a set of selecticn criteria. 


that begins in the last Spee ae how which has a blank 
in position 15. | , | 


If you enter more than one selection criterion or set of criteria, they 
are in an OR relationship. Tc be selected for processing, a record must 
meet cne of the single selection criteria or sets cf criteria. Ifa 
record does not meet any of the single selection criteria or sets of 
criteria, it is bypassed and the next record is read. 


Consider, for example, the selection criteria shown in Figure 23 (see 
index entry example 9 for the complete example from which this 
illustration is taken). Lines 02 and 03, tcgether, form a set of 
selection criteria. That is, a record is selected from the employee 
file (EMPFILE) if years of experience (YRSEXP) and marital status 
(MARSIN) are as specified in fositicns 16-43. [Lines 04 and 05, 
together, are a second set of selection criteria. That is, a record can 
also be selected if years of education (YRSEDC) and marital status are 
as described in positicns 16-43. Only one cf the sets of criteria 


(lines 02 and 03 or lines O04 and 05) need be met to maces a record for 
processing. 


SELECT/SORT SPECIFICATIONS 
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Figure 23. Using Multiple Selection Criteria 


Select Field Name_ (16-21) 


The selection process is done by conparing the contents of a field with 
the criteria specified on the Select/Sort specifications. Enter the 
name of the field to be tested in positions 16-21. : 


When specifying a field name, keep two rules in mind: 


1. A select field cannot ke defined as part of a key on the input 
specifications (K preceding the Field Location entries). 


Ze The select field name must be the same as a field name in the input 
specifications for this file. The first positions defined on input 
specifications for the field are the positions checked for the 
selection of records. 
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Type of Test (22-23) 


Entry Explanation 
Blank The value of the field specified in rositions 16-21 must be 


greater than or equal to the literal specified (cr ccntents of 
the field named) in positions 24-33; kut the field value must 
be less than or equal to the literal specified (or the 
contents of the field named) in positions 34-43. 


EQ The value of the select field must be equal to the literal (or 
contents of the field named) in positions 24-33 for the record 
to be selected. 


NE The value of the select field must not be equal to the literal 
(or contents of the field named) in positions 24-33 for the 
record to be selected. 


LT The value of the select field must be less than the literal 
(or contents of the field named) in positions 24-33 fcr the 
record to be selected. . 


GT The value of the select field must be greater than the literal 
(or contents of the field named) in rositions 24-33 for the 
record to be selected. 


LE The value of the select field must be less than or equal to 
the literal (or contents of the field named) in rositions 24- 
33 for the record to be selected. | 


GE The value of the select field must be greater than or egual to 
the literal (or contents of the field named) in rositions 24- 
33 for the record to be selected. 


Positions 22-23 define the relationship the select field is to have to 
the numeric or alphameric literal specified or to the field named in 
positions 24-33 (Single Value). If these positions are blank, the 
select field must contain a value (or characters) within the range 
defined Ey positions 24-33 (Low Value) and positions 34-43 (High Value). 


Remember the following points when specifying fields and literals as 
selecticn criteria: 


e If numeric fields are compared, fields of unequal length are 
aligned at the implied decjmal point. The shorter field is 
extended with zeros to the left andyor right of the decimal point 
such that the lengths of the fields are egual fcr compariscn. 


e If alphameric fields are compared, fields of unequal length are 
aligned at their leftmcst characters. The shorter field is 
extended with blank characters to equal the Length of the longer 
field. 


e All numeric comparisons are algebraic. A plus value is always 
greater than a minus value. 


e Leading blanks in unpacked numeric fields are assumed tc ke zeros. 
e An alphameric field cannot be compared tc a numeric field. 
6 A table/array name or an array element may not be specified in the 


selection ¢riteria. 


e Figure 23 shows both types of selection tests. 
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Line 02 shows a range test in which YRSEXF must be greater than or equal 
to 6, but less than or equal to 10. Lines 03, O04, and 05 are single 
value tests. The field MARSIN must ke equal to the character S and the 
field YRSECC must be greater than 13. 


Single or Low Value (24-33) 


Enter a numeric literal, an alphameric literal, or a field name. If a 
field name is entered, that field name must be defined in input 
specifications for the file from which records are being selected. 
Literals follow the same rules of formation as literals used in RFG II 
calculation specifications. Entries are left-justified; alphaneric 
literals must be enclosed in apostrophes. 


Positons 24-33 must always contain an entry when records are being 
selected froma file. If this entry is the single value (positions 34- 
43 are blank), an entry must ke made in positicns 22-23 tc define the 
relationship between this entry and the Select Field (positions 16-21). 
If this entry is a low value, rositions 22-23 must be blank and 
positions 34-43 must contain the high value of a range of values the 
select field may have. 


In Figure 23, for example, positions 24-33 contain a single value in 
lines 03, 04 and 05. In each case, the relationship to the select 
field is given in positions 22-23 (EQ, GT, EQ, respectively) and 
positions 34-43 are blank. In line 02, however, positions 24-33 contain 
the low value (6) and positions 34-43 contain the high value (10) that 
the select field, YRSEXF, may have. 


High Value (34-43 


Enter an alphameric or numeric literal or a field name in rfositions 34- 
43 when a range test is being done to determine record selection. The 
field or literal entered must be the high value of a range of values the 
Select Field (positions 16-21) may have. Positions 22-23 nust be blank 
when a high value is specified. Fositons 24-33 must contain the low 
value of the range. The same rules for comparing selecticn criteria 
with the select field apply to this entry as are given under index entry 


tyre of test, positions 22-23. 


SORT CRITERIA (44-52) 


Positions 44-52 are used to describe how ‘to scrt records within a file 
before processing them. The file to ke sorted must ke an inrut file 
which is defined as a primary or secondary file. 


If selection criteria are specified for a file which also has sort 
criteria, the records to ke processed are selected from the file first 
and then only the selected records are sorted. If no selection criteria 
are specified, the entire file named in Filename (positions 7-14) is 
sorted in the order determined by the sort criteria in positions 44-52. 


Sort Field Name (44-49) 


Enter the name of a field on the input record by which the input file is 
to be sorted. If the file is to ke sorted on the contents of ncre than 
one sort field, two or more field names can be entered in these 
fFositions on separate specification lines. See index entry sort field, 
Fositions 50-51 for an explanation of sorting when two or more sort 
‘fields are named. 
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Remember the following when specifying a sort field name: 


1. A sort field cannot ke defined as part of a key in input 
specifications (K in fosition 44). 


26 The sort field must ke defined in input specifications. If the 
field is defined more than once on the input specifications, the 
first definition of the field defines the location length. TLCecimal 
positions are not considered in sorting. 


Sort Field (50-51) 


Enter one of the codes S1 through S9 in positions 50-51 for each sort 
field that is named in rpositicns 44-49. This code indicates the crder 
of significance of the sort field. 


If only one sort field is specified, any of the nine sort codes may he 
entered. If two or more sort fields are specified, a different code 
must be entered for each. The order of significance of the ccdes is in 
descending order, with S9 the most significant, followed by S8, and so 
forth. A high-numbered code may be used without specifying all lower 
codes. 


The sort field with the highest code is used first to sort the entire 
file into either ascending or descending sequence. Each group of 
records for which the contents of that sort field were equal is then 
sorted according to the contents of the sort field with the second 
highest code, into either ascending or descending sequence. Grcurps of 
records in which the contents of the second sort field are equal are 
then scrted by the contents of the sort field with the third highest 
code and so forth, for as many sort fields as are specified. 


The specifications for a two field sort are shown in Figure 24. (For a 
complete example, see index entry _example 9.) Fields containing years 
of experience (YRSEXP) and years of education (YRSEDC) are assigned as 
S2 and S1 sort fields, respectively. Figure 25 shows the result of 
these sort specifications. First, the S2 sort field is used tc scrt the 
entire file, EMPFILE, into descending sequence. Next, the S1 sort field 
is used to sort records with equal YRSEXF values into ascending 
sequence. (See the next paragraph Sequence (52) for a descrirftion of 
ascending and descending sequence specification.) 
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Figure 24. Specifying Sort Criteria 


sequence (52) 


Entry Explanation 
A The sort field is to be sorted into ascending sequence. 
D The sort field is to be sorted into descending sequence. 


tf this entry is left blank, ascending sequence is assumed. 


YEARS OF YEARS OF 

EXPERIENCE . EDUCATION 
The selected records are 12 16 Within equal years of 
sorted into descending = | 10. 14 experience, records are 
sequence by years of 10. 7 - a 14 sorted into ascending 
experience, YRSEXP 10 yoy 17) order by years of 
since that sort field 7 14 education, YRSEDC, 
ras the highest sort . 7 . 16 the S1 sort field. 
code ($2). 6 14 

6 14 


Figure 25. Results of Sorting by Two Sort Fields 
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THE GENERATED RPG II PRCGRAM 


The REG II program produced Ly Auto Report includes RPG II 
specifications from the fcllowing three sources: 


ts Those included by the programmer in the Auto Report frogran (any 
valid RPG II specifications are allowed). 


26 Those copied from a source library using the /COFY statement. 
3. Those generated by Auto Report. 


The specifications are in the order required ky the RPG II compiler. 
Among the generated specifications are calculations to accumulate totals 
for the specified fields on the D/T-*AUTO specification. The cutfut 
specifications generated by Auto Report are alsc included. These 
specifications contain the necessary spacing, skipping, and end position 
entries tc produce a formatted report. 


FORMAT OF THE GENERATECD SPECIFICATICNS 

The generated RPG II specifications are in the follcwing fcrrat: 

Position Contents 

1-4 Sequence numker of the specification. This numker starts 
as 0010 on the RPG II control statement and is 
incremented Ly 0010 on each specification that follows. 


If more than 999 specifications are present in the 
program, the sequence is restarted at 0000. 


5 Code that identifies the specification, as follows: 
Blank A standard RFG II specification present in the 
Auto Report program. 
C Specification copied from a source likrary. 
M Specification copied from a source likrary and 
modified. 
E Specification generated by Auto Report. 
6-74 Standard RPG II specification. 
75-80 The same characters as are present in positions 75-80 of 


the RFG control statement. (If these positions are blank 
on the RPG control statement, they are also blank on all 
specifications in the generated RPG II program.) | 


Compile time tables and arrays are not changed Ly Auto Rercrt; they 
remain in standard takle/array record format. 

GENEFRATELC SPECIFICATIONS 

Standard RPG II specifications are generated Ly Auto Report and are 


combined with RPG II specifications included in the input to Auto Report 
and specifications copied from the source likrary to produce the final 
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RPG II source program. This section descriktes the generated RPG II 
specifications and the crder cf those specifications in the RPG II 
source program. = 


Figures 26 and 27 show Auto Report specifications for a sales report and 
the resulting RPG II source specifications that are generated for the. 
report. Numbers are inserted in the figures to identify the Auto Report 
functions and to show the specifications that are generated by each | 
function. The Auto Report specifications in Figure 26 are similar to 
those under index entry exarple 6. The file description and input 
specifications for the SALES file are cataloged in a source likrary, as 
in that example. In this example, however, the SelectySort function is 
added to produce a sales ECEOTE that is different from the earlier 
example (Figure 28). : 


The Cory function is used to include the specifications for the SALES 
file (Figure 26, insert 2). Since ERANCH is to be the control field for 
the sales report, a modifier statement follows the /CCPFY statement to 
add a control level indicator to the input specification fcr the BRANCH 
field. Figure 27, insert 2, shows the RPG II specifications included in 
the generated source program as a result of the /COFY statement. 


The Select/Sort function is used to select the Region 1 records for the 
report and to sort the records. The records are sorted into ascending 
sequence by branch. Within each branch, records are sorted intc 
descending sequence ky guantity sold. As a result of the Select/Sort 
specifications (Figure 26, insert 6), a file description continuation 
specification containing a Read Exit to the SelectySort object nodule is 
generated by Auto Report for the SALES file description (Figure 27, 
insert 6). 
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Figure 26 (1 of 2). Auto Report Specifications for a Sales Transaction 
Report 
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OUTPUT SPECIFICATIONS 
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SELECT/SORT SPECIFICATIONS 
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Figure 26 (2 of 2). 
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————P 0001 00 20 FPRINTER O F 120 120 OA PRINTERSYSLST 





0002 00 30C FSALES IP F 430 43 DISK40 SYS006S 
Oo 0003 00 40 F | KRDEXITRGSORT 
00 50 I*/COPY R,SALETR 7 
0004 00 60C ISALES AA 01 | : | 
0005: 00 70c I 1 7 ITEMNO 
0006 00 80H I 8 9 BRANCHE1 
| 0007 00 90c I 10 10 REGION 
2] 0008 01 00C I 11. 25 DESC 
0009 01 10c I 26 270SOLDOY 
0010 01 20c I 28 342SOLDVA 
0011 © 01 30C I 35 3600NHAND 
0012 01 40c I | 37 432VALUE 
0013 01 50E Cc 01 : EXSR ASSSUM 
0014 01 60E CL1 : SOLDVR ADD SOLDV1 SOLDVR 92 
| 0015 01708 CLI VALUER ADD VALUE1 VALUER 92 
o— 0016 01 80E CSR A$$SUM —«~ BEGSR 
0017 01 90E CSR SOLDV1 ADD SOLDVA  SOLDV1. 92 
0018 02 00F CSR VALUE1 ADD VALUE VALUE1 92 
0019 02 10B CSR ENDSR 
0020 02 20E OPRINTER H 201 1P 
0021 02 30F oO OR OA 
| 0022 02 40EB O UDATE Y 8: 
Q— 0023 02 50E 0 44 "SALES REPORT ' 
} 0024 02 60E O 55 *FOR ANY Co.? 
0025 02 70E oO 84 "PAGE ¢ 
0026 02 80E oO PAGE Z 88 
0027 02 90B OPRINTER H 1 1p 
0028 53 00B O oR OA 
0029 03 10E 0 6 *REGION® 
0030 03 20E Oo 14 "BRANCH 
0031 03 30E O 21 "ITEM® 
0032 03 40E Oo 36 *DESCRIPTION® 
0033 03 SOE 0 47 "SALES? 
0034 03 60E O 62 *AMOUNT® 
0035 03 70E oO 71 *ON-HAND* 
0036 03 80E O 86 "VALUE! 
0037 03 90E OPRINTER H 2 1P 
0038 04 00R oO OR OA 
0039 04 10E O 22 ‘NUMBER? 
0040 04 20E OPRINTER D 1 01 
9041 04 308 Oo L1 REGION 3 
0042 04 4OE O L1 BRANCH 12 
0043 04 50E Oo ITEMNO =. 23 
0044 04 60E 0 DESC 40 
0045 04 70E O SOLDOYK 46 
0046 04 80E O SOLDVAKB 62 
0047 04 90E Oo ONHANDK 69 
0048 05 00E Oo VALUE KB 86 
0049 05 10E OPRINTER T 12 L1 
‘0050 05°20F Oo SOLDV1KB 62 
0051 05 30E Oo VALUE1KB 86 
0052 05 SOE O By tee 
0053 05 50B OPRINTER T 12 LR 7 
0054 05 60E Oo SOLDVRKB 62 
0055 05 70E Oo VALUERKB 86 
0056 05 80E O 47 ‘FINAL TOTALS® 


Note: if you do not specify a header statement, Auto Report generates a blank header statement for you. The header 
statement appears on the page preceding the listing of generated specifications. 


Figure 27. RPG II Source Program Generated from Auto Rerfort 
Specifications 
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01/03/78 SALES REPORT FOR ANY CO. PAGE 1 


REGION BRANCH ITEM DESCRIPTION SALES AMOUNT ON-HAND VALUE 
eeu NUMBER 











AG7705S PICK-UP 20,000.00 1 2,000.00 
AG7701% 2-TON TRUCK 25,000.00 2 10,000.00 
AP6545B CAMPER 8,000.00 ' 
53,000.00 12,000.00 « 
AG7701T 2-TON TRUCK 10,000.00 1 5,000.00 
18,000.00 7,000.00 « 
As a result of the Select/Sort specifications, 
Region 1 records are selected. Records are 
oe FINAL TOTALS 71,000.00 19,000.00 xx 


in ascending order by branch, and within 
each branch, records are in descending 
order by quantity sold. 


Figure 28. Report Produced Using Auto Rerort Functions 


Generated Calculations 


Calculations are generated to accumulate totals for fields named on 
*AUTO field description specifications which have an A in fosition 39 
(Figure 29). 


An RPG II subroutine is generated to accumulate the values from these 
fields into the lowest level generated total fields. The name cf the 
subroutine is always A$$SUM. The subroutine specifications are 
conditioned differently, depending on whether detail or group printing 
is specified: 


1. If detail printing is specified, as in Figure 29, the EXSR 
statement is conditioned by the same indicator(s) that condition(s) 
the D-*AUTO specification (01, in this example). Each ADD 
statement in the subroutine is conditioned by the field 
indicator(s) specified with the field in its field description 
specification (none, in this example). 


2 If group printing had keen specified, the FXSR statement and all 
ACD statements in the sukroutine would have been unccnditicned. 


Total calculations are generated to roll the total from the lowest level 
defined total field through the higher level defined total fields and 
the final total. The total calculaticn to add the total from one level 
to that of the next higher level is conditioned by the control level 
indicator corresponding to the field name of the lower level. As shown 
in Figure 29, total calculations to accumulate IR totals are followed by 
the subroutine to accumulate the lowest level total, L1. 


Generated total fields are defined (given length and number cf decimal 
prositicns) when the total field is used as the result field in a 
generated calculation. In the input specifications, SOLDVA and VALUE 
are numeric fields defined with a length of 7 and two decinal rcsitions. 
Figure 29 shows that the total fields generated from SOLDVA and VALUE 
are defined as two positions longer than the original fields, with the 
same numker of decimal pfositions. 
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OUTPUT SPECIFICATIONS 
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| higher level totals. PCLL VALUER ADD VALUE! VALUER 92 | ; 

CSR ASSSUM BEGSR Length and decimal 
Feanroan ; CSR SOLDVI ADD SOLDVA SOLDVL 92 ,Jpositions of generated 
) SURIOU EINE alee m CSR VALUEL ADD VALUE VALUEL 92° |total fields. 
oulates the lowest level CSR ENDSR 


| totals (L1, in this 
example). 





Note: Placement of the generated calculations in the RPG i! source program is shown in Figure 27. 


Figure 29. Calculations Generated from Auto Refort Ccding fcr 
Sales Transacticn Rerort 


When group printing is specified (I-*AUTO specification), Auto Refort 
generates total calculations to reset each of the accumulated fields (A 
in position 39) on the lowest level total line to zero on each cycle. A 
(Z-ADL) calculation, conditioned by LO, is generated for each | 
accumulated field. These calculations are the first total calculations 
in the generated RPG II source program. 


Generated Output Specifications 


Figure 30 shows the output specifications generated by Autc Refert. 
Specifications supplied by Auto Report (column heading specifications, 
total specifications, conditioning indicators, spacing and skirring 
values, end position values, blank after) can be identified by comparing 
the listing with the Auto Report specifications. 


Auto Report generates specifications to reset accumulated fields to zero 
after they are printed. See index entry field description (A_in 
position 39) for a discussion of resetting fields to zero. In this 
example, blank after is generated for accumulated fields. 


Order of Generated Specifications 


The specifications in the RFG II source program generated by Auto Refort 
are in the order required ky the RPG II compiler. When specifications 
are included ky means of a /COPY statement, those specifications are 
initially placed immediately after the /COPY statement. After all 
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specifications have keen ccried and before Auto Report generates RPG II 
specifications from the H-*AUTIO and D/T-*AUTO specifications, the entire 
Auto Report scurce program is sorted into the fcllowing order: 

1. Header Specifications 

26 File Description Specifications 

3. Extension Specifications 

4. Line Counter Specifications 

or Input Specificaticns 

6. Calculation Specifications 


7. Output Specifications 


8. Takles and arrays loaded at compile time (must be placed last among 
the input statements to Auto Refort). 


Calculation Specifications: Generated RPG II calculation specifications 
are placed in the following order by Auto Report: 


1. Detail calculations specified Ly the programmer. 

2% EXSR statement for the generated subroutine. 

3. Total calculations generated by Auto Report, grouped in order by 
level (all LO calculations, then all L1 calculations, and so 
forth). 

4. Total calculations specified by the frogrammer. 


5. Subroutines specified Ly the programmer. 


6. Generated RPG II subroutine which accumulates the lowest level 
total. 


Qutput Specifications: Outrut heading specifications generated for H- 
*AUTO specifications appear in the same order they are coded cn the 
Output sheet in relation to other REG II and *AUTO output specifications 
for the file. 


Normally, RPG II output specifications generated from a D/TI-*AUTO 
specification are in the fcllowing crder: 


1. Heading specifications generated for column headings. 
2< Detail specifications. 
a Total specifications, with the lowest level first and LR last. 


This group of specifications is placed in the same relative position in 


the prcgram as the original D/I-*AUTIO specification. All other RFG II 
output specifications remain in their original crder. 
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If, however, the programmer specifies a normal RPG II total output 
specification conditioned Ly a positive (no N in position 23) ccntrol 
level indicator in positions 24-25 for the file which has a.D/T-*AUTO 
specification, all output specifications in the program are sorted into 
the following format: 


1. All heading, detail, and exception output specificaticns. They 
remain in the same order as they are in the generated RPG II source 
program. Total specifications which are not conditioned Ly a 
pesitive control level ands cator in positicns 24-25 remain as they 
were in the program. 


2s Total specifications which are conditioned by a rositive control 
level indicator in positions 24-25. These specifications are 
sorted into ascending order by the control level indicator in 
pesitions 24- ~255 with IR last. 


See Figure 27 and Part II: _ | amp1 e e_Frogram for aa aaa of the crdering 
of generated specifications. | 


Comment Statements: Comment statements (identified by an asterisk in 
position 7) are allowed among the statements read by Auto Report. 
However, Since the sort of RPG II specifications is based on the 
contents of position 6, comments may not occur in the expected crder. 

To ensure that comments remain with the correct specifications, place 
them immediately after that specification and on the same specifications 
forme 


Restriction: The order of tables and arrays is not altered when the 
source specifications are sorted. However, when you include takles and 
arrays from a source likrary, they may not cccur in the correct order 
after the sort. For example, if a File Translation or Alternate 
Collating Sequence table is present in the Auto Report source file, any 
compile time tables or arrays included from a source likrary member are 
out of order. That is, the included tables or arrays are placed ahead 
of the File Translation table. Recall that compile time tables and 
arrays must be loaded in the following order: 


ts File Translation Specifications 
2. Alternate Collating Sequence Specificaticns 


3. Compile time tables oe arrays in the order Aesevivea: on the 
Extension sheet. 


A solution to this restriction is to place your File Translation and 
Alternate Collating Sequence tables in a source library and copy them 
from the library before any other compile time tables and arrays are 
copied. This procedure ensures that your File Translation and Alternate 
Collating Sequence tables are the first compile time tables in the 
generated RPG II source program. : 
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REPORT FORMAT 


One of the advantages of Auto Report is that it frees the programmer 
from the task of specifying the format of his report on the Output 
sheet. Auto Report can completely format the report by spacing, 
skipping, centering lines, and calculating end post crouse for fields and 
literals. 


- SPACING AND SKIPPING 


Spacing and skipping can be either left to Auto Report cr specified by 
the programmer. Figure 31 shows spacing and skipping generated by Auto 
Report. For the specifications used to produce the report, see index 


entry generated RPG II progran. 


If Space/Skip (positions 17-22) are left Elank cn an H-*AUTO 
specification, a skip to channel 1 is done kefore the first heading line 
is printed and space-two-after is done for the last heading line. If | 
more than one heading line is specified, space-one-after is done for the 
first and all succeeding lines except the last. If the prcgranner 
specifies spacing and skipping entries, he must follow normal RFG II 
rules for spacing and skipping. 


Column heading lines are spaced like page headings. Space-one-after is 
done for all except the last. Space-two-after is done for a single 
heading line, or for the last heading line if more than one is 
specified. The progranmer cannot specify his cwn pEacing and skipping 
entries for column headings. 


If spacing and skipping entries are made on a D-*AUIO record description 
specification, the entries aprly to the detail line generated. The 
entries do not apply to column headings or total lines generated Ly Auto 
Report from the D-*AUTC specification. Normal RPG II rules fcr spacing 
and skipping must be followed. Space-one-after is assumed fcr the 
generated detail line if spacing and skipping entries are not made. 


Space-two-after is generated for all total lines produced Ly Auto Report 
from a D-*AUTO specification. In addition, the lowest level total line 
and the final total line are also generated with a space-one-ckefore. 


If spacing and skipping entries are made on a T-*AUIO specification, the 
entries apply to the lowest level total line generated, but nct to. 
column headings or higher level total lines. If spacing and skipping 

are not made, the lowest level total lines are generated with space-one- 
after; all higher levels are generated with space-two-after. Space- 
one-before is always generated for the second-to-the-lowest level total 
and the final total. (See Figure 17 for an example.) 


PLACEMENT OF HEADINGS AND FIELDS 


Auto Report generates end positions for fields and literals and centers 
column headings, columns, and report lines (see Figure 31 for an 
example). However, if the programmer specifies an end positicn for a 
field or literal on a [C/T-*AUIO field descrirtion line, that end 
position is used on all column heading, detail, and total specifications 
generated from the field description. (The specified end position may 
be altered slightly by Autc Report when the line is centered or when the 
column heading and field are positioned in relation to each other.) If 
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the specified end position causes an overlar with a previous field or 
literal, Auto Report generates a new end position. 


Specify end positions only when you want to eliminate the automatic 
spacing ketween fields or when you want tc spread out or expand a report 
on the page. 


Page Headings 


If the date and page number are printed on the first *AUTO page heading 
line (that is, if they are not suppressed by an N in position 27 of the 
Option specification) the date is always frinted in positions 1-8. The 
page number is printed with an end position equal to the highest end 
positicn of the longest line in the report. When the first *AUTO rage 
heading (including date, title, and page numker) is the longest line in 
the report, one blank space separates the title from the date and the 
word PAGE from the title. If the resulting line exceeds the record 
length of the printer file, the excess information on the right of the 
line is not printed. 


If a line generated from a D/T-*AUTC specification is the longest report 
line, that line is printed starting in print rosition 1, and the title 
fortion of the first page heading line is centered in relation to that 
line. Additional *AUTO page headings are then centered on the first 
*AUTO page heading line. 


If an *AUTO page heading is the longest line in the report and a D/T- 
*AUTO specification is present, any other *AUTO page heading lines and 
the line generated from the D/T-*AUTO specification are centered on the 
longest page heading. 


Fields and constants appear in the crder specified in the *AUTO output 
specificatons, from left to right. Auto Report provides one Elank space 
before and after fields on the heading line. No spacing is rfrcvided 
ketween literals. | | 


Reformatting *AUTO Page Headings: You can reformat an *AUTC rage 
heading line if you do not want to use the end positions for fields and 
constants that are generated Ly Auto Report. Obtain a punched deck of 
the generated source program and modify the end positions cn the 
appropriate heading field descriptions. You can obtain a punched deck 
by specifying a P in position 7 (Source) of the Autc Report Cption 
specification or by means of the DOS/VS OPTION statement, CPTICN DECK. 
(See index entry, source (7), for detailed instructions for ocktaining a 
punched deck. See index entry control statement considerations for a 
discussion of the OPTICN statement. ) 


If you want to know what end positions are generated fcr page, date, and 
title information, see the listing of the generated scurce program that 
is produced by the RPG it compiler (see index entry generated 


specifications) . 
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| Skip to charinel 1 occurs | 
before printing of the 
first line. 


pes Highest end = ares; 
a “position in . 
‘the report. ©” 



















0103/78 == — is SALES REPORT FOR ANY COL 
REGION BRANCH ITEM. DESCRIPTION SALES , AMOUNT ON-HAND VALUE 
NUMBER : | 
| ns bo AGTT05S PICK-UP “19 20,090.90 1 - | 2,000.00 
AG7701T 2—TON TRUCK 5 25,000.00 2 10,00°.0C 
‘AP6545B CAMPER | as 8,090.00 rrr at ane 
53,099.00 12,090.00 «©: | 





1 22 2 AGTTOSS . PICK-UP 


. 7 | — B,00F.90 = 2g CONC 
AGTTO1T 2-TON TRUCK 


19,090.00 1 — 5,00n.00 °° TI 






NO 






18,097.00 —.  -7y000.00 * 












FINAL TOTALS 71,000.00 19,000.00 #* 











Auto Report generates a 
blank line before the low- 
est level total (in this case, 
there is only the L1 total) 
and before the final total 
(space-one-before). 


Auto Report generates a blank line (space-two- 
after) following the last page heading line (in 


Auto Report generates a 
blank line following each total 
line (space-two-after). 





this case, there is only one page heading line) 
and following the last column heading line. 








Figure 31. Report Illustrating Format Generated by Auto Refort 


Body of the Report 


Placement of column headings above columns defends on which is longer, 
the heading or the associated field (including edit characters). If any 
of the column headings is lecnger than the associated field, the field is 
centered under the longest column heading literal. If, however, the 
field is longer than the longest column heading literal, the colum 
heading is left-justified over an alphameric field and right-justified 
over a numeric field. When more than one column heading line is 
specified, shorter column headings are always centered on the longest. 


Fields and literals appear from left to right on a line in the order 
they are specified on the output specifications. At least twce -Llank 
spaces appear before each field on the line. However, no spaces are 
provided before a literal; the progranmer must incorporate blanks within 
literals to provide for additional spacing. 


Total indication information (fields and literals specified with 1-9 or 
R in position 39) is placed to the left of the first total field (A in 
position 39) on the corresponding tctal line, fcllowed by two spaces. 

If two or more such fields or literals are specified for a total line, 
they appear from left to right in the order specified on the left of the 
first total on the line. Each field is preceded and followed Ly one 
space. NO spacing is provided for literals. 


Overflow of the D/T-*AUTO Frint Lines: If the lines generated from a 


D/I-*AUTO specification are longer than the record length specified for 
the printer file, a second rfrint line (overflow line) is generated for 
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each column heading line, detail (or group print) line, and total line. 
(Remember, a second print line is not generated for *AUTO page heading 
lines.) The excess information is placed on the overflow line in the 
order specified, right-justified. 


Figure 32 shows the result of an overflow condition. The specifications 
and data for the report are the same as in Fart II: Sample Program, 
except that the SelectySort function is not used and the printer record 
length has been reduced from 132 to 96. In the output specifications 
for Figure 32, no spacing or skipping is specified. If you specify 
Spacing and skipping, however, Auto Report spaces the report as follows: 


1. Cclumn heading lines and total lines are spaced as shown in Figure 
32. 
2. The space-before and skip-before entries you specify are used for 


the original detail (or group print) line. Auto Report generates 
Space-one-after fcr this line. 


3. The space-after and skip-after entries you specify are used for the 


overflow line. Auto Report generates Elanks for space-kefcre and 
skip-before for the overflow line. 
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°ZE asanbty 


3zz0day O3NW IITSaAy SA/SOI ZOL 


SOUTI 3UTId OLNW*-d JO MOTFASAO HutAZerAAsnTTI y3Az0dey 


01/03/78 CASH RECEIPTS REGISTER PAGE l 
REGIGN ACCUUNT ACCUUNT NAME INVOICE INVOICE DATE PAID AMOUNT DISCOUNT 
NUMBER NUMBER DATE OWED TAKEN : 
Auto Report prints those columns 
AMOUNT BALANCE EXCESS that cannot be completely con- 
PAID DUE DISCOUNT ; ae : 
‘tained on the original line on over- 
1 11243 JONcS HARDWARE 27541 T/LLIT6 7/2146 23-75 247 flow lines. 
23.28 
l 11352 NU-STYLE CLUTHIERS 27987 T/L4/76 7/20/6 87.07 
. 40.00 47.07 
1 11686 MIUI FASHIONS ENC 15771 7/04/76 7/1446 107.22 214 
; 105.08 
1 12874  ULOUK INTERIORS 25622 7/09/76 7/23/6 67.95 
67-95 
l 18274 STREAMLINE PAPER INC 29703 TW/21776 1/30/6 274.03 2038 
170.55 101.10 
560.02 4099 
4U6.86 148.17 * 
2 23347 RITE-BEST PENS CO 20842 7/10/76 7/20/6 15.80 
10.00 5.80 
2 25521 IMPURTS OF NM 29273 7/20/76. = 7427/6 797240 11693 
585047 200.u0 
2 26723 ALRIGHT CLEANERS 19473 7/07/76 7/23/6 462200 
462.00 
2 28622 | NORTH CENTRAL SUPPLY 17816 7/05/76 7422/6 75297 
75.97 
2 29871 FERGUSUN DEALERS 27229 7/10/76 7/2276 61.91 
61.91 
1» 413.08 11.93 
1,195.35 205.80 * 
3 30755 FASTWAY AIRLINES 26158 7/06/76: 7/196 742072 16.85 
725-87 1.90 
3 31275  eNVIRUNMENT CONCERNS 20451 7/06/76 7/30/6 29.43 
15ev0 14.43 
3 32457 & SULE SILUS 27425 T/10/76 7/20/76 110.05 
110.u5 
3 37945 HOFFTA BREAKS INC 18276 7/06/76 7723/6 47223 
47023 
929.43 16.85 
698.15 14.43 1.90 * 
4 42622 EASTLAKE GRAVEL CO 16429 7/05/76 7/2316 29.37 
29.37 
29.37 
29.37 * 
2,931.90 33.77 
368.40 


29529273 


1.90 ** 





PROCESSING AN AUTO REPCRT PROGRAM 


Explanation of the compilation, link-editing, and execution steps in the 
precessing of a program can be found in the puklication DOS/VS System 


Managenent Guide. 


Auto Report requires the same three processing steps and an additional 
processing step: execution of Auto Report pricr to compilation. 
However, Since Auto Report calls the RPG II compiler when it has 
completed generation of the RFG II source program, no jok contrcl 
statements are required in the job stream for the compiler. That is, 
the Auto Report processing step and the process of compilation are 
combined into a single job step (step A, as illustrated in Figure 33). 
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Auto Report — 
- Source 
_ Program 


_. Execute 
Auto Report 










Source 
Module (s) 














Execute 
RPG I 
Program 

















Object 
Module(s) 


_ " Auto Report Processing/ 
Compilation _ | 


Execute 


_ Linkage — 
Editor 





Program 


/ Link Editing 


Execute 
Object 
Program 


Execution 
















Relocatable 


Library ’ 





Output 
Data 


Figure 33. Processing of Autc Report Programs 
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Figure 34 shows the sample job stream for the Auto Report 
processing/compilation jok step only. (The assumrticns regarding 
symbolic device assignments are the same as given for the sample job 
streams in the publication DOS/VS RPG II Language.) The only difference 
between Auto Report jok streams and RFG II job streams is the name on 
the EXEC statement; the program name for Auto Report is RPGIAUTO. 
Figure 34 shows how to specify successive Auto Report — 
processing/compilations, thereby producing more than one okject module. 
The job stream shown in the publication DOS/VS RPG II Language for 
compile and link-edit and the job stream shown for compile, ilink-edit, 
and execute can also be used for Auto Report processing by changing the 
program name on the first EXEC statement in the job streams to RPGIAUTO. 


CONTROL STATEMENT CONSIDERATICNS 


All control statements used with RPG II can also be used with REG II 
Auto Report. 


CPTION Statement 


The OFTION statement can ke used to specify jok contrcl crticns. When 
CPTION DECK is used, the Select/Sort object module is punched. After 
the compilation, the RFG II okject program is also punched. 


If OPTION LINK or CATAL is specified, the SelectysSort object module 
(RGSORT) is written on SYSLNK prior to compilation of the generated RPG 
II source program. 


OPTION LINK, DECK can also ke specified. In this case, the Select/Sort 
object module is placed on SYSLNK and is aiso punched. After the 
compilation, the RPG II object module is not punched. 


The REG II source program froduced Ly Autc Report is punched only if a P 
is entered in position 7 of the Auto Report Oftion Specificaticns. The 
CPTICN statement does not control the punching cf this deck. 


The Auto Report listing, like the RFG II listing, is controlled by the 
LIST/NCLIST options. If NOLIST is specified, the Auto Repcrt and RPG [II 
compiler listings are suppressed. If LISI is specified, a listing in 
the format shown in Part II: Sample Frogram is printed by Auto Report. 
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Compiling Two Frograms that Use Auto Rerfort 


Figure 34. 
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APPENDIX A: PROGRAMMING AIDS AND TIPS 


The following chart should te helpful in determining valid *AUTO Output 
entries depending on the contents of position 39: 


Blank or 
Indicators 


Blank or 
Indicators 


Blank or 
Indicators 


Blank or 
Indicators 


Blank or 


Edit Code 


Edit Code 


Blank or 
Edit Code 


Blank or 
End Position 


Blank or 
End Position 


Blank or 
Column Heading 


Blank or 
Column Heading 





Column Heading 
Blank 


Blank or | Blank Blank or 
Edit Code | Edit Word 


Literal 


The following miscellaneous frogramming suggestions may be helrful in 
specific programming situations: 


1. 


When the sort function of SelectySort is used, only those rorticns 
of a record which are defined ky input specifications or are used 
in record identificaticn codes are passed to the sort program. 
Therefore, you can improve the performance of the sort by defining 
only those fields in the input record which are used in the 
program. (This applies to fixed length records cnly. When 
variable length records are sorted, the entire record is passed to 
scrt.) 


In order to increase the amount of virtual storage takle space 
availakle for input field modifier statements following a /COPY 
statement, increase the amount of storage available tc Autc Report. 
Increasing the available storage also increases the takle size 
available for fields used with H-*AUTIO and D/T-*AUTO 
specifications. In order to increase the amount of storage 
available to Auto Report, specify a larger partition size using the 
DCS/VS ALLCOC and ALLCCR commands, descriked in the puklicaticn 
DCS/VS_ System Control Statements. 


Cne column heading can be printed over two or more fields if 
automatic column spacing is taken into consideration. For example, 
if the heading DATF is to print over a month field and a day field 
as fcllows: 
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Ccde the output specifications as follows: 


a el cons [ome Pe wera 
{ lus Sign 
Field Name 2 










= Date 





Type iu 



















Rls = Field Edit 
Filename UB E : ae " Siepieas 
opel t | & 
[A}O] 0} a 
RI | 3 AUTO ~ 
rl | | 1042 Ml 32 33.34 35 36 37 cae Bees ERGEARERCEERCUESERGH 
: i : ; hte Te Tact EHH oH BaGEE 
E a HHS et Renee HECEELEELEL 
+ AY! | | EAB teh rrecEEET coe ieeewEe 
atti DAN TT eT] 
4. To print a constant on only the first detail line under a column 


heading, move the constant to a field in calculation specifications 
and print that field. 


CALCULATION SPECIFICATIONS 


Assume L1 is 


‘| defined in posi- 


r1 Operation | Factor 2 4 Comments 


. 
od L—4 
& 
12 [13 114] 15) 16 18 19 20 21 22 23 24 26 26 27 128 


Line 





& 
a 
E 
“7 
o 
uh 
3.4 5/6 


s 


OUTPUT SPECIFICATIONS 












X = Remove | 

Plus Sign 
Y = Date 
Z 


as ag rashes 
> [sme a mero 


Field Edit, 
= Zero 
Suppress 






Filename 








SRoCeREl 1 62 63 64 65 66 67 68 69 70471 72 73 74 


EaaR GRE RaR OR RERB EE 
EA Sete EPH ee 
CHEE PEC 
PRDER ARE EARRERERRSE 
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Be In order to print a column heading using the *AUTO function, a 
field name must be coded with that column heading. If a need 
arises to print a column heading for a field that is to ke printed 
only at total time in the RPG II program cycle, create a field of 
blanks by means of calculation specifications and print that blank 
field with the desired column heading. Then use a normal RPG II 
total specification and code the desired field to print using end 
rositions. See programming tip 7 for an example. 


6. If group printing is keing done and more than cne record type is 
present in the input file, certain precautions must ke taken by the 
programmer. If a field to be accumulated is present in all record 
types, but only one record type is to be processed, proper total is 
not generated unless additional coding is used. Given the 
following input specification: 


INPUT SPECIFICATIONS 








Record Identification Codes ; ; Field 
Field Location ; 
indicators 


Field Name 










Filename 








Plus |Minus| or 





“| Position 


Record Identifying Indicator 
“* of OS 


Field Record Relation 


a 
a 
= 
a) 
a 
a 
aed 
3 
2 
= 
8 


Decima! Positions 
Matching Fie!ds or 
Chaining Fields 





Form Type 






oa El on on 










Ss Anan ed pope te st 


~4-+-- ia —{- 0 y a 
—pent ~-+ = = 


tt Tar tr [P 






























































scams a 
































The following coding gives incorrect results: 


S|Space} Skip Output Indicators Er eee, > | Commas Zero Balances No Sign | CR X = Remove 
‘ (23 1g dus Pius Sign 
Field Name [f- 


Y = Date 























































i} 
= 
tol 
= A 
Q}xfeol_ 4 Field Edit 
Filename = < 2 : End Z = Zero 
2 ajc And x! Position Suppress 
Flolel | $(2] in x 
10] D] S}o} Output | Constant or Edit Word 
Six] Record | 2 
Do I~ Pa 
t cl les “4°23 4 5 6 7 8 9 101112 13 14 15 16 17 1819 20 21 22 23 24 ‘ 
17 3}24)25 29 30131 2 3 38 39) 44145 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70171 72 73 74 
Tear ae ele Eee PRR aR RRR 
Q g Eo 
Bl DESCRIPTION 
annus ALLL any 
sd ul | tb. 
qMOUNT! | AeRaRGE 
t i AR ‘ il | fi | | ae he - 
ah ae : Hitt epee ane 














The results are incorrect because the I-*AUTO specificaticn causes 
an unconditioned ADD subroutine to ke generated if a field is to be 
added. In the Auto Refort coding abcve, CTY is added when the 10 
indicator is on and when indicators 11 or 12 are on. 
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The following coding is a method of obtaining the correct results: 


CALCULATION SPECIFICATIONS 


indicators 


Factor 1 Operation Factor 2 


LTT TTT iz 
Be PEC E Cee 


> 

rf alo | {© Form Type 
| | _|¥ Control Level (L0-L9, 
|| |@_LR, SR, AN/OR) 


OUTPUT SPECIFICATIONS 





Filename 
Position 


in 
Output 
Record 






P/B/L/R 





Edit Codes 
B/A/C/1-9/R 


“AUTO i: 
23/24 | 25126 | 27 | 28} 29} 30 (31 432 a 34 35 ar 


‘ Result Field 








Output Indicators EE, 
vee _ 
its 


‘123 45 6 7 


_ Resuiting 
Indicators 


Comments 


61 62 63 64 65 66 67 


69 70 71 72 73 74 


= Remove 
Pius Sign 
= Date 


Field Edit 
= Zero 
Suppress 





Constant or Edit Word 


9 101112 13 14 15 16 17 18 19 20 21 22 23 24° 








po fs fol m | Betore_| 
— 














often printed, 





epee Teaser meta ee 
mule | itt TTT Batuatassina tewuit 
BREMRE RAR RRO RRERERE SHOR DRRHAE EE REBEEM ttt 
L Ixia] | TT TT Ixixt xixix, ie Poo tact Ct Ha bea 
SOFSIFGGLOGAEGFSGESVONCONGIHGIGIVOGOGIEEE lal 
SRUSRERREIRERRRARAE ED manne BERE Sha 
PET TTT TT AT Dxpaiit ac] ee DIX T DT eI! dd eID e  DiXIX! dig 

SUUSEGHEEG RGGGUAALAGGRRRAGRRAANOGE Pret eee 




















3/3|3/4 
oR ecustileh ashi sakes 
1 


art | | | | MET) 7 arto dale | fae Oe 
LEI 


eT Teer 

LEITH ese ae ane an 
lee H Le QUANT! YE He Ht Reeoe 
nu HE t Ha, ARUN ERE 





When printing an invoice register, the total number cf invcices is 
as shcwn on the fcllowing print chart: 





MOISES. J 











A method of accomplishing this is shown by the fcllowing 
calculation and Auto Rereort output specifications: 
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CALCULATION SPECIFICATIONS 









Indicators 





Result Field 









Resulting 
Indicators 

















And And Factor 1 Operation Factor 2 


6 
2 
Pl ded 3, 20 21.22 23 24 25 26 27|28 29 30 31 32433 34 35 36 37 38 39 40 41 42/43 44 45 46 47_ 
aga Coe ea MOVE TCL LLL T Te Pe 


Comments 




















eis | 


| Rel 







[> _ lm LR, SR, AN/OR) 
| [He Not | 
=o 





{ 


|| _|J% Contro! Level (L0-1.9, 























OUTPUT SPECIFICATIONS 


Output Indicators 
Field Name 
















Zero alge No Sign - X = Remove 
fo ODN 2 Plus Sign 










a 
5 Y = Date 
= Field Edit 
Filename se End Z = Zero 
& And Position 
er 


Suppress 
in : 
Output 
Record 










Constant or Edit Word 


Form Type 
Edit Codes 
B/A/C/1-9/R 


P/B/L/R 


"1°23 4 5 6 7 8 9 101112 13 14 15 16 17 18 19 20 21 22 23 24 ’ 


3 6 

ate EEE CL EP er 
SECRLEEEELEEECEEELECEL CELE Ht 
ari | { A 

LP tt LE tt ttt ft tet tepete ptt | 
0/5 oO a 
Soderh dey 14-4 | A 
oO hele 1 





1 
y ~ 
. ‘w 
<a 
+ 

















| 
i 

















ar a 
+ +4 
i ’ 1 
as 
" Hi 

























































































D | 





Appendix A: Programming Aids and Tirs 113 




















8 


INDEX 


Note: Numbers in parentheses are references to positions on specification forms. 


&(ampersand) in a modifier statement 79 
* (asterisk) indication on total lines 51 
*AUTO (32-37) 74 
entry on detail or total specification 60 
entry on page heading specification 55 
*AUTO field description specifications 56 
*AUTO output function 58 
A entry in position 39 12, 62 
blank or B entry in position 39 12, 62 
C entry in position 39 15, 68 
1-9 or R entry in position 39 15, 64 
*AUTO page headings function 54-57 
*AUTO output function 58-75 
accumulating totals 11, 63 
asterisk indication 66 
column headings 15, 62, 67 
detail printing 58 
entering an end position, considerations 
(see report format) 
examples 9-17 
group printing 71 
field description specifications 
(see field description) 
field or literal on generated 
total line 69 
filename 59 
generated edit codes (see also 
edit codes) 61, 65 
generated end positions (see report format) 
generated RPG II specifications 89, 5 
generated total fields 63 
restrictions in naming fields 64 
group printing 71, 63 
how to use (examples) 
indicators, output 61 
introduction 2 
line counter file 59 
number of files allowed 53 
record description specifications 58 
resetting total fields to zero 66 
Spacing and skipping (see also 
report format) 59 
specifications 58 
total rolling 11, 58, 63 
*AUTO page headings function 54-57 
centering headings (see report format) 
conditioning printing on first page 55, 11 
date 54 
suppressing the date 51 
editing 57 
examples 9-18, 56 
field description specifications 56 
filename 54 
format of page heading 98 


9-18 


generated RPG II specifications 
how to use (examples) 9-11 
indicators 55, 11 
introduction 1 
number of files allowed 53 
number of heading lines allowed 55 
page number 54 
suppressing the page number 51 
placement of fields and literals 
in heading (see report format) 

record description specifications 54 
reformatting *AUTO page headings 99 
Spacing and skipping 10, 55, 98 
with normal RPG II heading 
specifications 54 

*AUTO output specifications 58 
quick reference chart 109 

*AUTO page headings specifications 54 

*AUTO specifications 53-75 

*Suppress (28) 51 

/COPY statement 76-81 
cataloging specifications in the 


source library (see DOS/VS System 


Management Guide, GC33-5371) 
comments 77 
37, 77 


examples 19-23, 
file description modifier statement 77 
file description continuation 
specifications 79 
format 76 
input modifier statement 79 
member name 76 
modifying copied specifications 81 
order of generated specifications 94 
placement in Auto Report source 
program 21, 76 
purpose 76 
sorting of specifications by 
Auto Report 21, 96 
specifications 76 
sublibrary name 77 


89, 5 


A 


A$$SUM subroutine 93 

accumulating totals (rolling totals) 
examples 11-25 
generated calculations 93 
specifications 63 

A entry in position 15 84 

A entry in position 39 12, 62 

aids, programming 109 


ALLOC (allocate storage) command 109 


Index 115 


alphameric fields 
centering under column heading 
alphameric literal, entering on 
Select/Sort specifications 86 
altering *AUTO page headings format 99 
ampersand (&), use in /COPY modifier 
statements 78 
AND/OR specifications (output indicators) 
*AUTO output specifications 60 
*AUTO page heading specifications 54 
AND relationship of selection 
criteria 31, 84 : 
arrays, Order in generated program 
(see also table/array) 95 
restriction 96 
array name (indexed) 
as field name in *AUTO output 61 m4 
as field name in *AUTO page headings 56 
array records, format in generated 
RPG II program 89 
asterisk (*) indication on total 
lines 51, 66 
example 13 
suppressing 51 | 
asterisk protection (45-70) 71 
Auto Report 
functions 1 
input 4 
introduction 1 
listing of sample program 42 
method of operation 4 
operational diagram 6, 
output 6 
output of sample peegzam 42. 
purpose 1 
sample program 33 
specification sheets 3 
Auto Report Copy specifications 76 
Auto Report functions (see also 
specific function) 
*AUTO output 


100 


104 


examples 9-17 
specifications 58-75 
*AUTO page headings 
examples 9-17 
specifications 54-57 
/COPY | 
examples 19-23 
specifications 76-81 
Select/Sort | 
examples 24-31 
specifications 82-88 


Auto Report listing (see also OPTION 

job control statement), sample program 42 
Auto Report Option Specification | 

(see Option specifications) 
Auto Report output (see *AUTO output Ranetion) 
Auto Report page headings (see *AUTO 

page headings function) 
Auto Report Specifications (coding sheets) 3, 49 
Auto Report Select/Sort function 

(see Select/Sort function) 
Auto Report, how to use 7-46 
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B 


RB entry in position 39 (see field 
description specifications) 


blank after printing (39) 


*AUTO output 62 

*AUTO page headings 58 |. fe 

generated for.total fields 66 
blank entry (in position 39) 60 


body of the report (report format) 100 


Cc 


calculations 
generated by Auto Report 93° 
order in generated program 95 
using RPG II calculations in an 
Autg Report program. 17-18 
cataloged RPG II specifications. | 
example of /COPY function 19- 23 
sample program 36 
specifications for. /COPY function 76 
cataloging specifications for /COPY (see 
DOS/VS librarian functions in DOS/VS 
System Management Guide, GC33-5371) 
centering columns and column headings 
(see also report format) 69 
second and third column headings 69 
centering the report (see report format) 
C entry in position 39 7 
example (how to use) = 14, 68 | 
specifications for field description 68 
column headings 
additional (cont inued) | 15-16, 67 
following field description with A in 
position 39 67 — 
following field eeecriptzen with blank 
B in position 39 62 
centering 100 
second and third column headings 69 
effect of output indicators 59, 61 
examples (how to use) 9-17 
printing only on first detail line 110 
printing over two or more fields 109 
spacing for 98 


comments 


/COPY statement 16° 
Select;sSort meets 1eseion 83 
comment statements (* in position 7) | 
order in generated program. 96 
comparing, rules for 85 | , 
constant (see literal) 
constant or edit word (45-70) , entey on 
output field description 
*AUTO page heading 57 — 
*AUTO output (A in position 39) 67 
*AUTO output (blank or B in 
position 39) 62 |. 
*AUTO output (C in position +39) 69 
*AUTO output (1-9 or R in 
position 39) 71 


tinued column headings 15-16, 68 
tinuation specification, File 
scription 79 
tinuation (15), entry on Select/sSort 
ecification 
xample (how to use) 30 
pecifications 83 
trol level indicators (see also 
tput indicators) 
dding to copied input specifications 22 
£fect in group printing 71-73 
trol statement considerations 105 
ee also DOS/VS RPG II Language 
‘ference, SC33-6031) 
EXEC statement 105 
OPTION statement 105 
y function (see also /COPY statement) 
‘ataloging specifications in the source 
library (see DOS/VS System Management 
Guide, GC33-5371) 
‘opying Select/Sort specifications from 
the source library 82 
jenerated specifications 89 
iow to use (examples) 19-23 
mtroduction 2 
iodifying (overriding) copied 
specifications 77, 23 
file description specifications 77 
input specifications 179 
ylacement of copied specifications in the 
generated source program 76 
ietting copied specifications 
to blank (&) 78 
sorting copied specifications 78 
specifications that can be 
cataloged and copied 77 
sating a source library member (see 
IS/VS_ System Management Guide, GC33-5371) 
teria for selection (see selection 
citeria) 
iteria for sorting (see sort criteria) 
SS-total (example) 17 


KAUTO specification 58 

-@ generated for *AUTO page headings 54 
‘ormat of page heading 54, 98 
suppressing the date 51 

-¢ Suppress (27), Auto Report 

%tion Specification 51 

timal positions of generated 

%tal fields 64 

rail lines 

‘ormat of report 100 

spacing and skipping 59, 98, 100 
‘ail output specifications (see field 
scription and record description 
ci fications) 


detail printing 
effect of blank after (B in 
position 39) 62 
conditioning of generated calculation 
subroutine 93 
detail report 
examples 9-23 
specifications (see record 
description specification) 
disk work files (see work files) 
duplicate field names on /COPY modifier 
statement 79 
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edit codes (position 38) 
*AUTO output field description entry 
A in position 39 66 
generated K edit code 11, 61 
blank or B in position 39 62 
generated K edit code 11, 65 
1-9 or R in position 39 69 
relation to position 45-70 71 
*AUTO page heading field description 
entry 57 
generated in sample program 39 
end position in output record (40-43) 
A in position 39 66 
blank or B in position 39 71 
considerations for entering an end 
position 98 
generated by Auto Report 98 
1-9 or R in position 39 71 
EQ (equal to) select criterion 26, 85 
EXEC statement 105 . 
execution of an Auto Report program 103-106 
exit, read, for file using Select/Sort 82 
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fetch overflow (16) entry on 
*AUTO output specification 59 
field description (A in position 39) 62, 66 
accumulating (rolling) totals 63 
asterisk indication 66 
conditioning of generated total 
specifications 63 
considerations using generated field 
names in RPG II specifications 64 
constant (45-70) 67 
edit codes (38). 65 
end position in output record (40-43) 66 
field name (32-37) 65 
generated calculations 93 
generated total fields 63 
group printing 63 
how to use (examples) 11 
output indicators (23-31) 65 
resetting total fields to zero 66 
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restrictions in naming aes 64 
total rolling 63, 65 nae 
field description (blank or B 
in position 39) 60 
blank after (39) 62 
constant (45-70) 62 
edit codes (38) 61 
end position in output record (40-43) 62 
considerations for entering (see report 
format) 
field name (32-37) 61 
how to use (examples) 11 
output indicators (23-31) 61 
effect on column headings 61 
printing of fields 60 
zeroing fields 62 Le 
field description (C in position 39) 68 
constant (45-70) 69 
how to use (examples) 14 
field description (1-9 or R in 
position 39) 69, 71 
constant or edit word (45-70) 71 
edit code 70 
field name 70 
group printing 70 
how to use (example) 14 
field description specifications 
*AUTO output function (see separate 
listings under field description) 
*AUTO page headings function 56 
blank after (39) 57 
constant or edit word (45-70) 57 
edit codes (38) 57 
field name (32-37) 56 
placement of fields in title line (see 
report format) 
definition 53 
output indicators on (example) 15 
quick reference chart 109 
field name (32-37) 
*AUTO output entry 
A in position 39 65 
blank or B in position 39 61 
restriction (field names ending 
in 1-9 or R) 64 
using generated field names in RPG II 
specifications 64 
table/array names as 61 
1-9 or R in position 39 70 
*AUTO page headings entry 55 
conditioning of first page printing 57 
field names generated by Auto Report 63 
fields and literals on total lines 69 
fields of *AUTO output lines 60-71 
fields in *AUTO page headings 56, 16, 99 
file name (7-14) 
*AUTO output entry 59 
*AUTO page headings entry 54 
Select/Sort specifications entry 83 
floating dollar sign 71 | 
format of the Auto Report listing 42 
format of the generated report 
(see report format) 
format of the generated specifications 89 
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form type (6) . 
Option specification entry 49 ; 
select/sort specification entry 83 
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GE (greater than or equal) select 
criterion 26, 85 
generated calculations 93 
generated outrut specifications 94 
generated RPG II program, the 89 
arrays, format of 89 
arrays, order of 96 
calculations 93 
date 54 
edit codes 11 
field names 64 
format of generated specifications 89 
group printing 94 
modifying the punched source program 5 
order of specifications 89, 94 
output specifications 94 
rage number 54 
punching in cards 49 ee 
reformatting *AUTO page headings 99 _ 
sources of specifications 89 
stacker selection of punched deck 50 
subroutine (A$$SUM) 93 
tables, format of 89 
tables, order of 96 
total fields 63, 93 
writing on a disk work file 49 
generated total fields 63 
length and decimal positions 64 
rules for naming 63 
GT (greater than) select criterion 26, 8&8 
group indication 15 
group printing 71 
definition 71 
examples 72 | 
field description (A in — 
position 39) 63, 66, 72 
field description (blank or B 
in position 39) 62 | 
effect of output indicators. 61 
field description (1-9 or R in 
position 39) 70-71 
more than one record type in file 111 
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headings (see *AUTO page headings functio 

column heading, report format) 

high value (34-43) select criterion 86 
example (how to use) 30 


I 


indication of total line 
asterisks 51 
field or literal 71 


idicators, output (see output indicators) 
idicator, overflow 

‘ionditioning page headings 11, 55 

put field modifier statements 79 
increasing table space for 109 

put to the Auto Report Feature 2, 6 
put records, sorting (sort criteria) 86 
valid field names 65 


b control statements 105 
b steps 103 
b stream, sample 105 


edit code 61, 65 
y field restriction (sort field name) 87 


bels (29) 51 

(less than or egqual) select 
riterion 26, 
vels of totals 16 
brary maintenance program (see 
OS/VS_ System Management Guide) 
brary, source (see /COPY statement) 
ne counter file with *AUTO 
pecifications 53, 59 
ne number (entry on Select/Sort 
oecifications) 83 
sting, Auto Report 
Format 42 
LIST/SNOLIST (OPTION statement) 105 
-eral (constant) 
Xn generated total line 15-18, 69 
order in *AUTO page heading 99 
oxvinting only on first detail line 110 
is selection criterion 26, 86 
spacing on detail line 100 
vy value (24-33) select criterion 86 
xxample (how to use) 30 
vest level total line 72, 98 

total line 14, 63 

{less than) select criterion 26, 86 
‘L9 total lines 14, 63 


‘hod of operation 
uto Report 2 
lifier statements (/COPY function) 23 
nput field 79 
format 79 
increasing table space for 109 
number allowed 79 
order of 79 


with duplicate field names 79 
file description 77 
order of 78 
restriction in use of filenames 79 
rules 23 
modifying copied specifications 77 
modifying file description specifications 77 
modifying input field specifications 79 
modifying the punched source program 50 
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NE (not egual) select criterion 26, 85 
numeric fields 
centering column headings 100 
editing 61 
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object module (SelectySort function) 
effect of OPTION 50, 105 
generated Read Exit 82 
name 82 
separating punched object module from 
punched source program 50 
when punched 50 
object program 
effect of OPTION statement 105 
operation of Auto Report 6, 104 
CPTION job control statement 105 
CATAL option 105 
controlling Auto Report listing 105 
DECK option 105 
effect on Select/Sort object module 50, 105 
effect on source program 105 
LINK option 105 
LINK, DECK option 105 
LIST/NOLIST options 105 
obtaining a punched source deck 49 
Cption specifications 
*Suppress (28) 51 
assumptions for blank entries 49 
coding sheet 49 
date suppress (27) 51 
default if not present 49 
form type (6) 49 
labels (29) 51 
location in source program 49 
restriction with /COPY 49 
source (7) 49 
work files (26) 50 
OR relationship of selection criteria 30, 84 
OR specification (output indicators) 55, 60 
order of generated specifications 94 | 
calculations 95 . 
comment statement 96 
included by /COPY 94 
output specifications 94 
restriction (tables and arrays) 96 
sorting by Auto Report 95 


output function (see *AUTO output function) 
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output of Auto Report 6 
output indicators (23-31) 
*AUTO output specification 59 
field description (A in position 39) 65 
field description (blank or B in | | 
position 39) 61, 16 a 
record description specifications 59. 
*AUTO page headings specifications © 55, 11 
group printing 72 | a gh 
in sample program 39 
output of sample program 42 : 
output specification entries for *AUTO- output, 
quick reference 109 
output specifications - (see also. *a0TO output 
function) 
generated by Auto Report 93 #© 
placement in generated program 94 
overflow indicator (conditioning page 
neadings) 11 << 
overflow (overlap) of *AUTO print lines 100 
overriding copied specifications 
(see also modifier statements) 22 
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page entry i-2 on Select/Sort 
specifications 82 
PAGE fields, use by Auto Report 54 
page headings (see also *AUTO 
page headings function) 99 
page number 54, 99 | 
partition size, programming tip 109 
placement of headings and fields 98 
processing an Auto Report program 103. 
control statement considerations 105 
program identification 
characters used by RPG II 36 
entry on Select/Sort specification 83. 
programming aids and tips’ 109 : 
punching the generated program 49. 
altering the punched source 
program 50, 99 | 
Select/Sort object module 50 
separating punched object module 
from deck 50 
stacker selection 50 
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quick reference, *AUTO output . 
specifications 109 . 
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range test (selection criteria), 30, 86 | 
Read Exit 82 | 
record description specification 
*AUTO output specifications 58 . 
*AUTO (32-37) 60 i 
fetch overflow (16) 59 7 
filename (7-14) 59 
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output indicators (23-31) 59 
space/skip (17-22). 59 . 
type (15) 59 | 
*AUTO page headings specifications 54 
*AUTO (32-37) 55 
filename (7-14) 54 
output indicators (23-31) 55 © 
space/skip (17-22) 55 
type (15) 55° | 
definition 53 : 
record identification indicator on D-*AUT( 
specification 12 
reformatting *AUTO page headings 99 
R entry in position 39 69, 16 
report format 98-102 — 
altering the generated program 99 
body of the report 100 
centering column headings 100 
centering page headings 98 
centering the report 98 
end position in output record 
entry on output sheet 62, 66 
generated by Auto Report 98 
specified by programmer 98 
example 102 . 
page headings 99 | 
placement of headings and fields 98 
overflow (overlap) of print lines 100 
reformatting *AUTO page headings 99 
spacing and skipping 98 
detail line 100 
heading line 98 | 
specified by programmer 100 
resetting total fields to zero 66, 94 
RGSORT (name of Select/Sort object module’ 
rolling totals 
field description specifications 
(A in position 39) 62-67 
generated RPG II specifications 93 
RPG II Auto Report, how to use 7 
RPG II source program (see source. program 
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sample job stream 105 
sample program 33-46 | 
Auto Report coding 36-39 
Auto Report listing 42 
cataloged specifications 36 
data 41 
disk work file for sort 37 
edit codes generated 39 
output 41. 
output indicator 39 
program description 35 
report 46 
Select/Sort function (see also selection 
criteria and sort criteria) 82-88 | 
generated specifications 92 
how to use (examples) 24-31 
number of files used 83 . 
object module (RGSORT) 82 
selection criteria 84, 24-31 


sort criteria 86, 27-31 
spread card file restriction 83 
ect/Sort specifications 82-88 
comments (53-74) 83 
copying from source library 82 
‘ilename (7-14) 83 
‘orm type (6) 83 
mage and line number (1-5) 83 
ylacement in source program 26, 82 
ect field name (16-21) 84 
ection criteria (15-43) 82-86 
\lphameric fields 85 
IND relationship 30, 84 
continuation (15) 30, 83 
‘ile types allowed 83 
ligh value (34-43) 86, 26 
iow record is selected 84 
10w to use (examples) 26 
iteral 85 
ow value (24-33) 
meric fields 85 
MR relationship 30, 83 
‘range test 30, 86 
ules for comparing 85 
select field 84, 25 
select field name (16-21) 384 
set of selection criteria 84, 29 
single or low value (24-33) 86, 26 
single value test 26, 86 
-able/array restriction 85 
“ype of test (22-23) 26, 85 
juence number (generated specifications) 89 
quence (52), Select/Sort entry 88 
igle or low value (24-33) 86 
.pping (see space/skip) 
't criteria (44-52) 86 
10w to use (examples) 27 
rey field restriction 87 
wder of sorting 87 
‘rules for specifying 86 
sequence (52) 88 
sort field (50-51) 87 . 
sort field name (44-49) 86 
351-S9 sort codes 87 
‘tt field (50-51) 8&7 
‘+t field name (44-49) 86 
tt, improving performance 
xrogramming tip) 109 
‘ting copied specifications 21, 76 
’ting of specifications by Auto Report 95 
t+ work. files 50 
irce (7), entry on Option specification -49. 
irce library , 
‘sataloging specifications in (see DOS/VS 
System Management Guide, GC33-5371) 
sablibrary name 21, 76 
Iirce program 
sffect of OFTION statement 105 
jenerated by Auto Report 89-97 
1iodifying the punched source program 50 
unching the source program 

using Auto Report Option 

specification 49 


86, 26 


using OPTION job control statement 105 
stacker selection of punched 
source deck 50 
writing on a disk work file 50 
space/skip (17-22) 
*AUTO output specification 59 
*AUTO page heading specification 55 
default values 55 
Spacing and skipping (report format) 98 
column headings 98 
detail lines 59, 98, 100 
examples 10, 13, 100 
generated by Auto Report 99 
lowest levei total line 98 
page headings 10, 55, 99 
specified by programmer 100 
total lines 59, 98 
specifications 
*AUTO output (see also *AUTO 
output function) 58-75 
guick reference 109 
*AUTO page headings (see also *AUTO page 
headings function) 54-57 
/COPY 76-81 
Select/Sort 82-88 
stacker selection of punched source deck 50 
sublibrary name (/COPY) 76 
subroutine generated by Auto 
Report (A$$SUM) 93 
successive compilations 105 
summarizing data (see group printing) 
suppressing asterisks on total lines 51 
suppressing the date and page number 54, 11 
S1-S9 sort codes 87 


T 


T-*AUTO specification 58 
table/array 
as field name 
*AUTO output specifications 61 
*AUTO page headings specifications 56 
as selection criteria (restriction) 85 
format in generated program 89 
order in generated program 
(restriction) 96 


tape labels 51 


tape work files 50 
tips, programming 109 
total calculations, conditioning 93 
total fields generated ky Auto Report 63 
decimal positions 64, 94 
how generated 63 
length 13, 64, 94 
rules for naming 63 
same as previous field name 64 
when defined 93 
total indication information 100 
totaling fields using Auto Report (see field 
description, A in position 39) 
total lines 
asterisks 51, 14 


Index 121 


levels of totals 74 : 


literal (constant) on total line 14 


spacing and skipping 59, 98 
total output specification 
_ type entry on output sheet 59. 
total rolling 
Auto Report specifications 58, 63 
generated calculations 93 
how to code (examples) 11-18 
type (15) 
*AUTO output specification 59 


AUTO page heading specification 55 


type of test (22-23) 
Select/Sort specification 26, 85 
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work files 
entry on Option specification 50 
Select/Sort function 
disk 50 
tape 50 
writing generated RPG II program on 
work files (26) 
Option specification 50 
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zeroing (blanking) fields 
blank after 
*AUTO output 62 
*AUTO page headings 57 
in generated output specifications 
for group printing 66 


1-9 or R in position 39 


49 


94 


*AUTO output field description 69, 15 
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